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I NTRODUCT I ON 

The phogtvms pusented here ewe set out fax the Individual who has a specific 
need In mind. Because a detailed discussion o& these programs would require a 
text several times the pftesent size oh this Libhaxy it has been omitted. Indi- 
viduals who have a specific fiequlxement will have to be at least knowledgeable 
in the area the phogKom is written about; le: Statistical ptwgHams xequixe the 
user to be {amillax with the terms mean, median, etc. This ij> becau&e the ptw- 
gfiams axe wnltten in the vexnaculax o& their subject matter. With this know- 
ledge alone, no ptwghamming expedience on the part o{ the user lt> xequired in 
ondex to use any o& these pfwgnams in mo&t systems. Once it is determined that 
a particular phagnam may be useful the user merely types In a copy o& the BASIC 
souAce code exactly as it appears in the phognam listing. Then fallow the in- 
structions fan mmning the pftognam as presented In the Instruction position o$ 
the white up, immediately preceding the phognam. Also included in the wnlte ups 
axe statements that appeax in the source code which may possibly need to be 
changed to nun in the user's computer system; le: RNV statements may have to be 
changed to FRANV In ohder to compile in certain systems. 



PUBLISHERS NOTE: Appendix B included at the end of Volume V was not 
mentioned in the preface by the author. We feel this appendix is 
the most important single item included in this library. We see 
this appendix as a fore runner that might lead the way toward 
standardizing a computer language among the manufacturers . This is 
in addition to the obvious benefits to all users of this Basic 
Software Library. 
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Business & Personal Bookkeeping Programs 
DESCRIPTION 

Computes price and interest for bond purchases. 

Analyzes the cost of building design proposals. 

Computes effective compound interest rates. 

Determines seasonal coefficients for two cycles. 

Makes a lease/buy decision for you. 

Makes a decision on whether to buy a component or make it. 

Calculates depreciation by k different methods. 

Cal. the most efficient assignment of resources and/or personnel 

Predicts your yearly cash flow. 

Performs monthly installment accounting. 

Computes interest accruals, monthly. 

Computes annual rates of return on investments. 

Makes a comparison of mortgage terms. 

Optimizes the layout for a plant, shop, office, etc. 

Determines your economic order quantity for inventory items. 
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Games & Pictures 

DESCRIPTION 

Teach the computer all about animals. 

Land your spaceship on another planet. 

Advanced number game, numbers may be algebraic, few clues 

Calculate your Bio-Life Cycle and plan your days. 

An advanced war game with big guns. 

Plays a regulation game of checkers. 

A dice game with hard way odds. 

Air fight w/missiles; betweeen a phantom and a mig. 

Plays any number of holes; inc. obstacle course. 

Have a rap session with Judy via your computer. 

Simple number game, all you have to do is unscramble them. 

Authentic horse race, any number of players. 

Gamblers delight, plays Las Vegas rules. 

Sky dive on another planet 

A war game between two tanks. 

Teach the computer to learn new things. 
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D ESCRIPTION 

Introduction 

He's absolutely MAD! MAD! MAD! 

Our 35th. president. 

Loveable "Peanuts" character, w/blanket. 

A modern miss to put a twinkle in your eye. 

Former "United States" president. 

Christmas or anytime this is a beautiful creation. 

A true work of art for anyone's gallery. 

A message for all seasons. 

True and blue, he's the law. 

In banner form, perfect for decorating the mantle. 

That paragon of Dogdom even plays football. 

A picture you can read as well as see. 



TABLE of CONTENTS 



VOLUME TWO 

Part 3 

NAME 

Beam 

Conv. 

Filter 

Fit 

Integration 1 

Integration 2 

Intensity 

Lola 

Macro 

Max. Min. 

Navaid 

Optical 

Planet 

PSD 

Rand 1 

Rand 2 

Solve 

Sphere Trian 

Stars 

Track 

Triangle 

Variable 

Vector 



Math & Engineering Programs 

DESCRIPTION 
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Calc. Long, and Lat. from interstellar fix or distance. 

Simulates a language compiler. 

Calc. the max. S min. values of funct. over a spec, interval. 
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Calculates Blackbody energies, w/filter look-up tables. 

Calculates Sun and Moon positions, hourly. 

Calculates Power Spectral Densities and FFT's. 

Generates random numbers between and 1. 
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Locates 50 stars (celestial). 
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Calc. final position; given start and motion vectors 
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Calculates binomial probability distributions. 

Applies the Chi-Square test to samples. 

Calc. coefficients of fourier series to apprx. a function. 

Calculates confidence limits on iinear regressions. 

Calculates confidence limits for a sample mean. 

Performs auto and cross correlations with plots. 

Fits 6 different curves by the least squares method. 

Calculates difference of means in non-equal variances. 

Plots two functions on the same sheet. 

Calculates exponential distributions for a sample. 

Performs least squares fit by linear, exp. , or power function. 

Compares 2 groups of data using the rank test. 

Plots 6 equations on the same sheet. 

Plots data points on standard teletypes. 

Performs least squares polynomial fit. 

Performs multiple linear fit with or without transformations. 

Finds the mean, variance and standard deviation. 

Computes various stat. measures for a variable. 

Calculates normal and T-di str ibut ions. 

Compares 2 groups of unpaired data. 

Performs one way analysis of variances. 

Analyzes a variance table of one way random design. 

Plots functions of X and Y. 
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Performs posting and billing of accounts. 

Maintains data for inventory records. 

Computes payrolls with full set of deductions. 

Performs a risk analysis on capital investments. 

Performs the most effi. scheduling of men or resources to loca. 

Solves the problem of scheduling and assignments. 

Computes the value of stocks. 

Calculates the effects of a bond switch. 



vi x 



FABLE of CONTENTS 



VOLUME FOUR 

General Purpose Programs 

NAME DESCRIPTION 



Bingo 

Bonds 

Bull 

Enterprise 

Footbal 1 

Funds 1 

Funds 2 

Go-Moku 

Jack 

Life 

Loans 

Mazes 

Poker 

Popul 

Profits 

Qubic 

Rates 

Reti re 

Savings 

SBA 

Tic-Tac-Toe 



An age old favorite. "B9, C23, D4, E13, F21 , BINGO! 

Computes the yields for a bond for different periods. 

If you ever dreamed of being a Matador, here's your chance. 

Take charge of the Enterprise while Capt. Kirk is on leave. 

Authentic NFL version of this well known sport. 

Calculates long-term predictions of funds. 

Plots the results of Funds 1. 

Ancient Chinese game of chance. 

Plays Blackjack, Las Vegas style. 

Life is truly a battle for survival, a real challenger! 

Calculates annuities, loans and mortgages. 

Generates unique maze puzzles for you to solve. 

Five card draw - for up to 5 players. 

Performs population projections for defined areas. 

Determines the profitability of a firms various depts. 

3-Dimensional Tic-Tac-Toe. 

Calc. the effective annual interest rate for stated interest, 

Calculates your Civil Service Retirement benefits. 

Computes savings plan profiles. 

Calculates repayment schedules for SBA loans. 

An all time favorite for young and old alike. 
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Engine Calculates the otto cycle of engines. 

Fourier This program evaluates fourier series. 

Horse Draws a picture of a horse. 

Integers Computes integers as the sum of other integers. 

Logic Determines conclusions from logic statements. 

Playboy Draws the playboy symbol. 

Primes Factors numbers into their primes. 

Probal Calc. Chi-Sq. and probabilities from 2X2 data sets. 
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Solves quadratic equations 

Draws a picture of the infamous Red Baron. 

Calculates linear regressions. 

"Beep! Beep!" Draws a picture of the Road Runner. 

Computerized "Wheel of Fortune", plays roulette. 

Old Saint Nick appears as jolly as ever. 

Calculates quantities for two groups of paired data. 

Computes sample statistics. 

Calculates steel beam capacities. 

Computes cost for surfacing a road or driveway, etc. 

Performs an analysis of a vari. table; one-way random design, 

Generates a "SINGING" Christmas card. 
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store and change from rough draft to final copy in a variety 
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PREFACE 

The information contained in these pages represents the culmination of a 
very large project. That of compiling a versatile and complete Software 
Library that will be of use to a large number of diverse individuals. The 
programs presented here when combined in a system will represent a very 
powerful library bank. Such a work as this has been attempted in the past 
in such areas as cook books, electronic source books, mathematical tables 
and even computer games. But to date such a collection as this has yet to 
be offered to the average individual to use as he chooses. The word "at - 
temped" was used as no work is ever considered complete by everyone regar 
dless of its thoroughness. 

The programs presented here were chosen for their uniqueness and general 
usefulness. There should be at least one program included that will be of 
use to every type of individual whether they have access to a computer or 
not. Computers are a wonderful and very useful tool. Through this Library 
I hope to interest more people into becoming involved with computers. The 
Library is written so that little or no computer programming experience 
is required to invoke any of the programs. The programs that are present- 
ed here are all written in the computer language called BASIC. Each pro- 
gram has been successfully run on a G.E. 635 computer. The entire source 
code is presented as well as a short narrative page which defines the pro 
gram, tells who might be interested in using it, a brief set of instruc- 
tions or how to get them and then any limitations in the program are no- 
ted. In the limitations section the storage length in K Bytes is given so 
the prospective user will know how much memory to allow for the program. 
Where possible the amount of memory space required for full execution is 
given for the programs, this space is independent of the space already oc 
cupied by your BASIC compiler. 

The programs are broken down into five sections or parts. Each part deals 
with a specific type of program. Part 1 contains business type programs. 
These programs will be of interest to individuals who have businesses, 
play the stock market, balance their own checkbooks, do installment buy- 
ing, figure taxes, etc. There are a total of 20 programs in this section. 
Part 2 is the lighter side of the Library as it contains 16 games and 12 
picture programs. No computer library is complete without some fun. Among 
the games presented in this section is one called Checkers. The game is 
rather long but it is virtually machine independent as it doesn't use over 
lay techniques or use files. Most of the other games included here are as 
exciting as this version of Checkers. Each was chosen so as not to mimic 
others that the reader may have seen. The pictures are as unusual in their 
own way as are the games. Most of the pictures are spread over several pa 
ges, this was done not only so the reader will need to run the program to 
see the details of a particular picture but also in the hopes of getting 
as many of these programs into use as possible. As the picture programs 
are very simple it is an easy place for the novice to start learning about 
programming. 

Part 3 is comprised of Math and Engineering programs. Some of these programs 
will be of use to high school students, professional people, sailors, engi- 
neers, astronomers, airplane pilots, etc. Most of these programs are very 
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technical but they can perform every day calculations quickly and easily 
and they are extremely simple to use. There are 23 general usage programs 

presented In this section. 

Part k Is made up of Plotting and Statistical Analysis programs. These 
programs can be readily utilized by a number of people in widely differ- 
ent disciplines from fishermen to statisticians. The data gathered may 
be from a poll, a census 9 a test sample or even the number of fish cau- 
ght on various days. The stat programs will be of invaluable aid to any- 
one who gathers data of any kind. The plotting routines will be of use 
to most of the people who use the stat programs or programs in Parts 1 
and 3. The plotting is done on any standard teletype or terminal and 
does not require a special plotter or plotting terminal. There are a tot 
al of five direct plotting programs and 18 stat programs in this section. 

All of the programs presented here may be run by simply typing the source 
code as listed, exactly as it is, into your computer. Now before the pro- 
gram will run it will have to be converted into machine code. This is done 
automatically and requires no forethought except to make certain the oper- 
ating system you are working in is BASIC. In the larger computer systems 
you are asked what system you want — to this type BASIC; the smaller sys 
terns only have BASIC, in these you are O.K. 

Immediately following Part k is Appendix A. Here, all of the Basic State- 
ments used throughout these pages are defined. Each statement is explained 
sufficiently well to enable one unfamiliar with this subset to modify any 
necessary statements so that the program or programs will compile and exe- 
cute with the Basic compiler or interpreter available with their particu- 
lar computer. Most of the Basic compilers available today, that require 
more then 10K Bytes of storage, will execute all of the programs presented 
in these volumes with the possible exception of a few of the games and the 
program "Variable". Multiple line statements are not used in most of the 
programs and only a few programs use string manipulations extensively. A 
few of the programs may require more on line storage then is available on 
some of the small micro computer systems; these longer programs will not 
be executable due to the limited amount of memory. However most of the 
programs will execute in 10K Bytes of memory or less, thereby making most 
of the programs in this Library executable in virtually any Basic speaking 
computer without any required modifications. 

Volume III is comprised of ADVANCED BUSINESS programs, part 5- This volume 
as well as subsequent volumes are intended to make this Library complete 
and useful to all individuals. 

Each of these programs are written in a subset of the Dartmouth language. 
The specific subset is that which was used by General Electric on their 
635 systems. These programs have operated without problem on a variety of 
small and large machines even several of the new micro computers. The pro 
grams that use string manipulations may require slight modifications be- 
fore fully executing on some systems. These programs are mainly found in 
Part 2 — - Games. 
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All of the programs In this Library were written or edited by the author. 
All of the programs edited by him were given for Inclusion, "swapped" for 
traded, or made public. A few of the original authors of the "swaps" are 
not known, for this I apologize. The others, unless specifically mentioned 
In the text, are presented here. In addition I would like to thank the fol 
lowing for their cooperation in making this work possible. 
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PROGRAMS 



1040 - TAX: 

DESCRIPTION 

This program is designed to aid you in preparing your Federal Tax Re- 
turn. It will allow you the user to itemize your deductions or use the 
standard deduction as revised under the new tax laws for 1977. If your 
deductions are itemized this program will check your totals to see if 
they are within the norm for your income. Should your deduction totals 
exceed the norm for your income then your chances of being audited 
increase. 



USERS 

All taxpayers required to file a tax return and owning a computer system. 
This program should execute in most of the small micro-computer systems 
presently on the market. 



INSTRUCTIONS 

After loading the program into your computer just type RUN. The program 
is tutorial and will ask for all required data. 



LIMITATIONS 

Following the source code listing for this program are two examples of 
the program in operation, you should study these examples before running 
your taxes. You will need to look up data in the sales tax, gasoline 
tax and tax rate tables so be sure they are handy when you run the 
program. After the program has finished your taxes simply transfer the 
numbers from the print-out to the appropriate line on the tax schedules. 
This program does not use double precision variables as most of the 
small systems cannot support double precison. The source code is 12K 
Bytes long and the program should execute in 13K Bytes of available 
memory in most systems. 
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1040 TAX ■•■ 1 - 

ii.. .11 iir; ii.:::: c:::. n:::.n f :: - v" ir .:ii: u:;;; ilii ii ' :\l ■*?■ ::;; ;ir n::;:i: 

IliiS "ii" S C IIII EZ M ' II : IE IF" X iLI Ft IE. S: HE" iF'n IR C II HI 

.1.0 REM J HI;::; IS l III: :l .(HO TAX PROGRAM 

110 REM WRITTEN BY ROGER W<. BROWN 

.1.20 REM EDITED BY .JOHN W* SWAIN 

1.30 REM UCC COPYRIGHT .19/8 - BY ••■• SCIEN LIE TO RESEARCH 

j. ''H) ri;::m this program may not be reproduced or sold 

150 f'rint " ucc copyright 1978 13 y sou:: nt if to rf si:: arch " 

160 print 

1/0 f*r:i:nt 

180 print " 1 (ho l :: edir.rai... tax program including schedule 'a' and suppi f 

MENTAL." 

190 PRINT "SCHEDULES ' B ' „ '(.'.': ' » ' D ' -.> AND ' E ' , 

20 PRINT 

2.1.0 PRINT 

220 F'RINT "ANSWER ALL QUESTIONS . IF IT DDL SN ' T APPIY* OR Yf'il I DON'T H 

AME " 

230 PRINT "INCOMi: OR EXEMPTIONS FUR HITS ITEM. ENTER A '()' UNU. : ;;SS THE" 

240 PRINT' "QUEST ION REQUIRES A 'YES' OR 'NO' ANSWER," 

250 PRINT 

260 PRINT 

2/0 PRINT" THE 1 (HO FORM NT L.I BE DONE FIRST, 

2S0 PRINT 

290 PRINT 

30 REM QUESTION SECTION 

310 M-"0 

320 1.J--0 

330 PRINT 

340 PRINT" ARE YOU MARRIED" J 

350 INPUT Yil; 

360 PRINT 

3/0 IE LEFPIKYiliy 1)<>"Y" THEN ^Hii 

380 M--1 

390 PRINT 

40 PRINT "ARE: YOU FILING A JOIN I RETURN"? 

410 INPUT Y$ 

( '!20 PR IN 7 

48 If lef t i|; ( Y$ > 1 ) -■ " Y " T Hli:;N ,]■■■■■■ 1 

440 PRINT' "HOW MANY OILIER DEPENDENTS DO YOU CI ATM" J 

450 INPUT Dl 

460 PRINT 

4/0 IF J~() THEN 50 

480 l>4XL*2 

490 GOTO 5.1 

50 D--D.TH. 

510 PRINT "ARE YOU OR YOUR SL'OUSE (IE FILING JOINT RETURN) OOF'E 65," 

520 PRINT" ENTER A 0v :U OR 2" 5 

530 INPUT El 

540 F'RINT 

550 PRINT "ARE YOU OR YOUR SPOUSE (IP FILING JOINT RETURN) PI TNI), " 

560 PRINT" ENTER A (O l f OR 2" $ 

5/0 INPUT Bl 

580 PRINT 

590 ei^iehbi 

60 rem i:;:i =-■ :i= op special exemptt dns 

6:1.0 D2=="I:)-m;;::i. 

620 REM IF' M=--l THEN MARRIED 
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Y.i<H) LAX 2 ■- 

II....H o c o 01 if- '"ii"' if* : ii'': g ii-ii t ::il ":;i ; " :;; ;; "" o 
IE* y iB h:::: :n: ie: bm! ~r x. if~ :::ii::: h:::: fs eh: s; he: i a. ir c ii-ii 

630 REM IF J"»l THEN FILING JOINT RETURN 

6't0 PRINT " WHAT IS THE GROSS WAGES ON YOUR W-2'S"? 

650 INPUT Gl 

660 PRINT 

670 PRINT' "WHAT IS YOUR FEDERAL WITHOLDING" i 

680 INPUT Ft 

690 PRINT 

70 IF J-0 THEN 770 

710 PRINT "WHAT IS YOUR SPOUSE'S GROSS WAGES"? 

720 INPUT G2 

730 PRINT 

7 '10 PRINT" "WFIAT HAS YOUR SPOUSE PAID INTO FEDERAL TAXES"? 

750 INPUT' F2 

760 PRINT 

770 PRINT "ENTER ALL INEEESTS RECEIVED (FROM SCHEDULE 'B'>"t 

730 INPUT" II 

790 PRINT 

80 PRINT" ENTER ALL DIVIDENDS RECEIVED (FROM SCHE DULL ' B ' ) " ? 

810 INPUT D3 

320 PRINT 

830 G1^G1+G2 

830 print "did you itemize your deductions on your federal., return las 

T YEAR " * 

860 INPUT Y* 

870 PRINT 

380 IE LEFT* < Y* » 1 > <> " Y " THEN 930 

390 PRINT "HOW MUCH SIT ATE AND LOCAL. TAX REFUNDS DID YOU RECEIVE FROM " 

90 PRINT "LAST YEARS TAXES"? 

910 INPUT S3 

920 PRINT 

930 PRINT "HOW MUCH ALIMONY DID YOU RECEIVE"? 

9- ; 10 INPUT 8*1 

950 PRINT 

960 PRINT " HOW MUCH BUSINESS INCOME OR LOSS DID YOU RECEIVE. IF LOSS 
f " 

970 PRINT" ENTER A NEGATIVE AMOUNT,"* 

930 XNPUT S5 

990 PRINT 

10 PRINT "FIOW MUCH DID YOU GAIN OR LOOSE FROM SALE OR EXCHANGE OF" 

1010 PRINT' "CAPITAL ASSETS, IF LOSS? ENTER A NEGATIVE AMOUNT"? 

1020 INPUT S6 

1030 PRINT 

IUH0 PRINT "DID YOU HAVE ANY FARM INCOME OR LOSS, IF LOSS ENTER" 

1050 PRINT "A NEGATIVE AMOUNT"? 

1060 INPUT S7 

1070 PRINT 

1 8 S8--G1 •>! 1 +D3-4S3*S / BS5+S6+S7 

1090 PRINT " ENTER ANY MOVING EXPENSE." YOU HAD, < INCLUDE WITH YOUR RET'U 

EN " 

110 PRINT "A '3903' FORM IF ANY)"? 

1110 INPUT' Ml 

•LI. 20 PRINT 

.130 PRINT "ENTER PAYMENTS TOWARD A RETIREMENT PLAN* (ATTACH FORM '53 
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1110 

1150 
1160 
1170 

11 BO 
1190 
120 
1210 
1220 

1230 
1210 
1250 
1260 
1270 
12S0 
1290 
130 
1310 
1320 
1330 
1310 
1350 
1360 
1370 
1380 
1390 
110 
11 10 
1120 
1130 
1110 
1150 
1160 
1170 
1180 
1190 
150 
1510 
1520 
1530 
1510 
1550 
1560 
1570 
II 580 
1590 
160 
1610 
1620 
1630 
1610 
1650 
1660 



1 .1 ' OF THE 1010 FORM, NOW WE WILL. DO" 



"ROM LL S* POSSESSIONS OR" 



PRINT "YOU QUALIFY) " 5 

INPUT 1)1 

PRINT 

PRINT "ENTER ANY ALIMONY PAYMENTS YOU HAVE MADE AND ARF F NTH TIED 
TO „ . 

INPUT 05 

PRINT 

D6^D5HH-Oil 

D7---S8 D6 

PRINT '"DID YOU RECEIVE ANY DIBAPI L I T V INCOME* (IF NONE , ENTER A 

' ' :> " 

PRIM "OTHERWISE > ENTER THE: AMOUNT) " i 

INPUT D8 

PRINT 

PRINT 

PRINT " THIS COMPLETES SID 

PRINT "THE REUERSE SIDE, " 

PRINT 

PRINT 

PRINT 

D9--D7--DB 

IE D9T80 THEN 1510 

IF M=-=:l. AND J"-:l THEN 1370 

IF" M»:l THEN 1510 

PRINT 

print "did you eai^n any inco? 
print "from abroad" j 

INPUT Y* 
PRINT 

IF" LEI" I* < Y* » ]. ) » " Y " T HEN J. 51 (1 

PRINT "DO YOU HAVE: DEPENDENT' CHILDREN"? 

INPUT Y-:|; 

PRINT 

u :: " I...EF' i ii> <: y* » i ) <> " y " thi;;;n i 5-<i o 

D0™G1~D8+S5 

IF C1T10 THEN C1--100 
IF" D0<D9 THEN D(XD9 
IF D 0<1 THEN 1510 
DO^DO-10 
C2-D ():«<. 1 

c:l<;:l->c2 

print "enter any estimated tax payments you made for last year"* 

INPUT l"'2 
PRINT 

ei^fih-^hii. 

print m enti:;:r the: amount of credit eor the elderly" j 

INPUT II 

print 

print " ent er the. amount of credit for child care:* (attach furh" 

print "2111 to return) " j 

INPUT 12 

PRINT 

PRINT "ENTER THE AMOUNT OF INVESTMENT" CREDIT"* 

INPUT 13 
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1670 PRINT 

1680 I4™I1 +12+13 

1690 PRINT 

170 PRINT 

171.0 PRINT 

1720 PRINT 

1730 PRINT" THIS COMPLETES THE 1040 QUESTION AND ANSWER SECTION, SCHED 

ULE ' A ' " 

1740 PRINT "WILL BE DONE NEXT," 

1750 PRINT 

1760 PRINT 

1770 PRINT 

1780 PRINT 

1790 REM (HIS IS SCHEDULE 'A' SECTION 

180 PRINT 

1810 PRINT 

1820 PRINT " IF YOU DON'T WANT TO ITEMIZE YOUR TAXES:- TYPE A '0' OTHERWT 

SE " 

1830 PRINT" TYPE A ' 1 '" J 

1840 INPUT TZ 

1850 IP TZ-0 THEN 3180 

1860 PRINT "MEDICAL EXPENSES WILL BE DONE FIRST." 

1870 PRINT 

1880 PRINT 

1890 PRINT 

190 PRINT" ENTER YOUR TOTAL MEDICAL INSURANCE PREMIUMS, THE PROGRAM W 

ILL " 

1910 PRIN T " CALCULATE THE CORRECT AMOUNT AND ENTER IT INTO THE FORM"? 

1920 INPUT W9 

1930 PRINT 

1940 Pl«W9/2 

1950 IF" P17150 THEN Pl«i50 

1960 PRINT "HOW MUCH DID YOU PAY FOR PRESCRIPTIONS"? 

1970 INPUT P2 

1980 PRINT 

1990 P3-D9>k.01 

20 P-^P2-P3 

2010 IF P4<0 THEN P4^0 

2020 PRINT "ENTER ALL. OTHER MEDICAL EXPENSES AND MISC. CHARGES"? 

2030 INPUT P5 

2040 PRINT 

2050 P6^P4H :: '5-P1+W9 

2060 FV"D9**03 

2070 P8H :: '6--P7 

2080 IF P8<0 THEN P8™0 

2090 P9=P8+P1 
210 PRINT 

2110 PRINT 

2120 IF' P97550 THEN GOSUB 5770 

2130 PRINT "TAX EXPENSES WILL BE DONE NEXT," 
2140 PRINT 
2150 PRINT 

2160 PRINT "ENTER THE TOTAL SLATE AND LOCAL INCOME TAXES WITHELD"? 
2170 INPUT Ql 
2180 PRINT 
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2190 PRINT "ENTER THE REAL ESTATE TAXES PAID "J 

220 INPUT Q2 

2210 PRINT 

2220 PRINT "LOOK UP I HE GASOLINE 'TAX YOU ARE EN (TILED TO IN THE TAX" 

2230 PRINT "TABLE AND THEN ENTER THE AMOUNT HERE"? 

22-10 INPUT 03 

2250 PRINT 

2260 PRINT "LOOK UP THE SAI...ES TAX OEEDI I PROM THE TAX TABLE AND ENTER" 

2270 PRINT "THE AMOUNT' CORRESPONDING TO YOUR INCOME HERE, (NO IE I IE Y 

OU " 

2280 PRINT "HAD ANY MAJOR PURCHASES SUCH AS A CAR OR ETC* YOU MAY Al S 

TAKE" 

2290 PRINT "AS A DEDUCTION y THE SALES TAX PAID ON THOSE ITEMS)" 

230 PRINT 

2310 PRINT "ENTER THE TOTAL SALES TAX DEDUCTION HERE"? 

2320 INPUT CW 

2330 PRINT 

23-10 PRINT "ENTER ALL PERSONAL PROPERTY TAXES PAID" 5 

2350 INPUT 05 

2360 PRINT 

2370 PRINT "ENTER ANY OTHER MISC. TAXES PAID EXCEPT 'FICA' AND 'EEDEEA 

I... ' " 

2380 PRINT "THAT HAUE NOT ALREADY BEEN ENTERED"? 

2390 INPUT 06 

2-10 PRINT 

2-1:1. Q7="-Q:l.-t-a2-*-Q3+{:H-*-Q5-«-Q6 

2-120 IE Q7>,1*:D9 THEN GOSUB 5690 

2-130 PRINT 

2-1-10 PRINT 

2-150 PRINT' "INTEREST EXPENSES WILL BE DONE NEXT* 

2-160 PRINT 

2-170 PRINT 

2-180 PRINT "ENTER THE". INTEREST YOU PAID ON YOUR HOME: MORTGAGE"? 

2-190 INPUT 08 

250 PRINT 

2510 PRINT" ENTER ALT. OTHER INTERESTS YOU PAID SUCH AS ON LOANS* ORFDT 

T CARDS v " 

2520 PRINT "AND ETC, " ■> 

2530 INPUT 09 

25-H) PRINT 

2550 00^08*09 

2560 IE a0>,:UD9 THEN GOSUB 5810 

2570 PRINT 

2580 PRINT 

2590 PRINT "CONTRIBUTIONS WILL BE DONE NEXT," 

260 PRINT 

2610 PRINT 

2620 PRINT" ENTER ANY CASH CONTRIBUTIONS YOU MADE"? 

2630 INPUT El 

26-10 PRINT" 

2650 PRINT" ENTER CASH VALUE." OF OTHER CONTRIBUTIONS MADE SUCH AS CI OTH 

ES y " 

2660 PRINT "OLD FURNITURE , AND ETC,"? 

2670 INPUT R2 

2680 PRINT 
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2690 R3=«R1+R2 

270 IF R3>40 THEN GOSUB 5350 

27:1.0 PRINT' 

2720 PRINT 

2730 PRINT "LOSSES WILL BE DONE: NEXT*" 

2740 PRINT 

2750 PRINT 

2760 PRINT "ENTER ALL CASUALTY LOSSES"? 

2770 INPUT R4 

2780 PRINT 

2790 PRINT "ENTER ALL INSURANCE!: REIMBURSEMENTS FOR THESE LOSS <IF ANY 

) " t 

280 INPUT R5 

2810 R6^R4-R5 

2820 IF R6<0 THEN R6™0 

2830 PRINT " ENTER *10 FOR EACH LOSS"? 

2840 INPUT R7 

2850 PRINT 

2360 IF R6«0 THEN R7«0 

2370 R3^R6--R7 

2880 IF REK0 THEN R3^0 

2890 IF" R3>30 THEN GOSUB 5890 

290 PRINT 

2910 PRINT 

2920 PRINT "MISCELLANEOUS DEDUCTIONS WILL BE DONE NEXT*" 

2930 PRINT 

2940 PRINT 

2950 PRINT "ENTER ALL UNION DUES PAID"? 

2960 INPUT R9 

2970 PRINT 

2980 PRINT " ENTER ALL OTHER MISC. DEDUCTIONS SUCH AS COST OF BOOKS)- UN 

IFORMS)-" 

2990 PRINT "TOOLS? ETC."? 

30 INPUT Ul 

3010 PRINT 

3020 U2=R9-RJ1 

3030 U3™P9+Q7+Q0+R3+REi+U2 

3040 IF M-0 THEN 3090 

3050 IF J«l THEN LH=»320 

3060 IF IB~320D THEN 3160 

3070 84^1600 

3080 GOTO 3160 

3090 IH™220 

310 PRINT "ARE YOU A QUALIFYING WIDOW OR WIDOWER WITH DEPENDENT CHILD 

OFR " 

3110 PRINT "CHILDREN"? 

3:1.20 INPUT Z* 

3130 PRINT 

3140 IF I...EF-ni;(Zi|i-!»i:K>"Y" THEN 3160 

3150 U4<S200 

3160 U5-U3--IW 

3170 IF U5<0 THEN U5-0 

3180 U6=D9"-U5 

3190 PRINT 

320 «*-" Xt Y» OR Z " 
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3210 IF U6 > 200 THEN 3230 

3220 a*™" A, By C* OR I.) " 

3230 FRIM T " FHE TOTAL NUMBER OF EXEMPTIONS) YOU CLAIMED IS"?D2 

3240 PRINT "YOUR TAXABLE INCOME IS $" JU6?" * LOOK UP THIS AMOUNT IN Til 

E TAX RATE" 

3250 FRINT"TABI...i;;::3";>Q$? "AND ENTER YOUR TAX MERE"? 

3260 INFUT 07 



.„..,. 



v..'.(.. 



PRINT 



n> :> uv 



i ': " 



32B0 U8-U7- 14 

3290 IF U8<0 THEN U8™0 

33 U9^F4 -US 

3310 U0^U8H :: 4 

3320 IF U?<0 THEN U9™0 

3330 Il :: U0<0 THEN U0-M) 

3340 IF' U9--0 THEN 340 

3350 PRINT 

3360 PRINT 

3370 PRINT 

3380 PRINT 

3390 PRINT "REFUND , ♦ , REFUND ♦ . OF , , 

340 PRINT 

3410 PRI'NT 

8420 PRINT' 

3430 PRINT 

3440 PRINT "THIS FINISHES THE QUESTIONING SECTION OF THE 1040 TAX PEOO 

RAM , " 

3450 PRINT "NOW THE PROGRAM WILL PRINT OUT THE TOTALS TO BE USED IN" 

3460 PRINT' "FTLLINO OUT YOUR TAX FORMS, THE M.040' FORM WTM BF" 

3470 PRINT "FIRST ♦ " 

3480 PRINT "DO YOU HAVEL HARD COPY <Y OR N>"5 

3490 INPUT '£% 

350 PRINT 

351 IF LEI- T 'i|» ( Z* * 1 ) -:: " Y " THEN 360 

3520 PRINT" HOW MANY SECONDS DELAY WOULD YOU LIKE" 

3530 PRINT "BET WEEN PRINTED LINES < == NO DRAY)"? 

3540 INPUT XI 

3550 PRINT 

3560 F'RINT 

35/0 PRINT 

3580 REM THIS FILLS IN THE BLANKS FOR 'THE 1040 AND SCHEDULE 'A' 

3590 REM THIS PROGRAM FITS II IE NEW 1977 TAX FORMS, 

360 PRINT "THE FOLLOWING ARE THE." LINE! NUMBERS; AND AMOUNTS TO F:l : - FNTFR 

ED " 

3610 PRINT "ON YOUR 1040 FORM," 

3620 PRINT 

3630 PRINT 

3640 PRINT 

3650 PRINT " UCC - COPYRTGH T 1978 13 Y - SCIENTIF' XC Ri;-SF ARCH" 

3660 PRINT 

3670 PRINT 

8680 PRINT 

369 PRINT " LINE NUMBER " , " AMOUNT " s> " AMOl JNT " 

370 PRINT 

37 1 PRINT TAB ( 6 ) J " 7 " , v D2 

3720 GOSUB 5620 
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3730 PRINT! AB<6> ?"S" y yGl 

3740 GOSUF: 5620 

3750 PRINTTAB <6> 5 "9" y »I1 

3760 GGSUB 5620 

377 PRIN1 TAB ( 4 > ? " 1 C " » >• D3 

3780 GGSUB 5620 

3 790 PR I N T T A B < 5 > J " J. 1 " y r 3 3 

330 GO SUB 5620 

381 F'RINTTAB ( 5 ) J " 12 " y v 34 

3320 GGSUB 5620 

3830 PRINT FAB ( 5 > ? " 13 " y y 35 

3840 GGSUB 5620 

3350 PRXNn'AB<5> J " 14 " y yS6 

336 GGSUB 5620 

3870 PRIN 11 AB ( 5 > * " :l 9 V S7 

3880 GOSUE: 5620 

3890 F'RINTTAB < 5 > J " 21 " » >■ S3 

390 GGSUB 5620 

891 PRINTTAB ( 5 > J " 22 " > M 1 

3920 GGSUB 5620 

393 PRINTTAB < 5 > i " 24 " y D4 

3940 GGSUB 5620 

3950 PRINTTAB ( 5 > 5 " 27 " y D5 

8960 GGSUB 5620 

3970 PRINTTAB ( 5 > ? " 23 " y r D6 

3980 GGSUB 5620 

3990 PRINTTAB ( 5 > } " 29 " v 1 07 

40 GGSUB 5620 

40 1 PRINTTAB ( 5 > } " 30 " r t OS 

4020 GGSUB 5620 

4 8 PRINTTAB ( 5 ) i " 3 1 " y y D9 

4040 GGSUB 5620 

4050 PRINT 

4060 PRINT 

4070 PRINT "THIS IS THE EM) OF THE. FRONT SIDE: OF' THE: 1040 FORM* NOW T 

HE " 

4080 PRINT "BACK SIDE WILL BE FILLED IN-. " 

4090 PRINT 

410 PRINT 

4110 PRINT "UCC •••• GOPYRIGITl 1978 BY - SCIENTIFIC RESEARCH" 

4120 PRINT 

4130 PRINT 

4140 PRINTTAB ( 5 > J " 32 " y v D9 

4150 GGSUB 5620 

4160 PRINTTAB (5) J "33" r yUS 

4170 GGSUB 5620 

4180 PRINT! AB(5> % "34" y rU6 

4190 GGSUB 5620 

420 PRINTTAB (5)5" 35 " y » U7 

4210 GGSUB 5620 

4220 PRINTTAB ( 5 > ? " 37 " y ? 117 

4230 GGSUB 5620 

4240 PRIN T TAB ( 5 ) i " 39 " , II 

4250 GGSUB 5620 

•1260 PRINTTAB ( 5 ) i " 40 " ? 12 
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4270 GOSUB 5620 

42S0 PRIN1TABC5)? "'j| " v r : < 

'♦290 GOSUE: 5620 

430 PRIN7TAB (5 ) J « ^, » y , j .<j 

4310 GOSUB 5620 

4320 PRINTTAB ( 5 ) i " -<y7 " r „ i if) 

4330 GOSUB 5620 

4340 PRINT T AE: < ?5 ) J » f H " ip » I JR 

4350 GOSUE: 5620 

436 PRINT T AB ( 5 ) i " •-;'«; » „ p | 

4370 GOSUE: 5620 

4380 PRINTTAEi ( 5 ) J « «;<<■, » „ p-y 

4390 GOSUB 5620 

440 PRIN7TAB<5>? »^?" „p-| 

4410 GOSUE: 5620 

442 PRINT TAB ( 5 ) } ■« &:> » „ „ F .< ( 

4430 GOSUE: 5620 

'•'H4 E'RINTTAE: ( 5 ) i " 63 " „ » 1 19 

'H50 GOSUE: 5620 

446 E'RINTTAE: ( 5 ) ; " 64 " y „ U9 

4470 GOSUB 5620 

4480 PRINTTAB(5) J "66 %*( l(i 

4490 GOSUB 5620 

450 GOSUB 5620 

4510 PRINT 

4520 PRINT 

4530 PRINT 

4540 IE TZ-0 THEN '^7 

4550 PRINT 

45^ PPTN^TmnKr 7 ^ PRINT ° UT ° F ™ E ' 1(H0 ' TA>< T0 ™ LS - 
458 r™-" , rr f- NQ LINE NUMB E*S WILL REFLECT THE FIGURES" 

,;:!r j Ha1ni"whilh are used on schedule ',v/ 

"KjV'U I-'R.LN'i" 

460 PRINT 

4610 PRINT 

4620 PRINT 

46?0 PRINt" UCC "" CGPYRIGHT 197B BY - SCIENTIFIC; RESEARCH" 
4650 PRJHT 
4660 PRINT 

4670 PRINT " LINE." NUMBER " t " AMOI JNT " 

4680 PRINT 

4690 PRINTTAEK6) i '• \ •> „ P | 

470 GOSUB 5620 

47 1 F : 'RINTT AE: ( 6 ) J " p " , P? 
4720 GOSUE: 5620 

473 PRINTTAEi ( 6 ) i " 3 % pq 

4740 GOSUB 5620 

4750 PRINTTAE: ( 6 ) J " ^ « f p/j 

4760 GOSUE: 5620 

4770 PRINTTAB (5) J '■ 6C" >.p ,:: l 

4780 GOSUB 5620 

4790 F : 'RINTTAB ( 6 > } " -/ « , p 6 

480 GOSUB 5620 

4810 PRINTTAE: (6)? » « % FV 
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4820 GOSUB 5620 

4830 PI^INTTAB(6)?"9%P8 

4340 GOSUB 5620 

4850 PRINTTAB(5>?"10" H :: '9 

4860 GOSUB 5620 

4370 PRINTTAB(5)5" :l.l "vQl 

4880 GGSUB 5620 

489 PRINT T AE: < 5 ) ? " 1 2 " » Q2 

490 GOSUB 5620 

49 1 PRINT! AB ( 5 ) ? " 1 3 " * (33 
4920 GOSUB 5620 

4930 PRINT TAB ( 5 ) } " .1. 4 " v Q4 

4940 GOSUB 5620 

4950 PRINTTAE: <5> i " 15' »«5 

4960 GOSUB 5620 

497 PRINTTAE: (5)5" 16 " r 06 

4980 GOSUB 5620 

4990 PRINTTAB<5> * " 17" >U7 

50 GOSUB 5620 

5010 PRINTTAE: (5) J "18" »G8 

5020 GOSUB 5620 

5030 PRINTTAB (5) J " 19" AT? 

5040 GOSUB 5620 

5050 PRINTTAB (5) 5 "20 " vQO 

5060 GOSUB 5620 

5070 PRINTTAB (S) * "21 " >-Rl 

508 GOSUB 5620 

5 9 PRXNTTAB ( 5 ) i " 22 " * R2 

510 GGSUB 5620 

5 1 1 PRINTTAB ( 5 ) > " 24 " t R3 

5120 GOSUB 5620 

51 3 PRINTTAB < 5 ) ; " 25 " * R4 

5140 GGSUB 5620 

5 1 5 PRINK T AE: C 5 ) % " 26 '* R5 

516 GOSUB 5620 

517 PRINT! AE: ( 5 ) 2 " 27 " r R6 

518 GGSUB 5620 

519 PRINTTAE: ( 5 ) J " 28 " * R7 

520 GOSUB 5620 

521 PRINTTAB ( 5 ) t " 29 " r R8 

522 GGSUB 5620 

523 PRINTTAE: ( 5 ) i " 30 " >■ R9 

524 GGSUB 5620 

5250 PRINTTAB(5)?"31 %U:i. 

5260 GOSUB 5620 

527 PRINTTAE: ( 5 ) % " 32 " r U2 

5280 GGSUB 5620 

529 PRINTTAE: ( 5 ) * " 33 " v P9 

530 GOSUB 5620 

5310 PRINTTAB(5)5"34" 5 .Q7 

5320 GOSUB 5620 

533 PRINTTAB ( 5 ) > " 35 " » GO 

5340 GGSUB 5620 

535 PRINTTAE: ( 5 ) * " 36 " t R3 

5360 GGSUB 5620 
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5370 F'RTNT TAB <5> J "3/" »RB 

5380 GOSUF: 5620 

5390 PRINTTAB<5> ? "38" vU2 

540 BOSUB 5620 

5410 RRINTTAB(5> i "39" >4J3 

5420 GOSUB 5620 

5430 RRIN I TAB ( 5 > ? " 40 " „ U4 

5440 GOSUF: 5620 

5450 F'RIN I T AB (5)5 "4:1. " » U5 

546 GOSUF! 5620 

5470 GOSUF: 5620 

5480 PRINT 

5490 PRINT 

550 PRINT 

5510 PRINT "THIS FINISHES THE ':l.040' 'TAX PROGRAM. NOW YOU" 

F'RINT "MUST' FILL IN THE BLANKS ON THE APPROPRIATE FORMS AND THEN 

SIGN" 

30 PRINT " THEM IN T'HF CORRECT Ft.ACFS, BE SURE TO INCLUDE: ANY AND AL 



..nj/ 



PRINT" SUPPORTING FORMS. IF ANY, AND A CHECK IF YOU" 



554 

5550 PRINT "OWE 'THE GOVERNMENT ANY TAXES," 

5560 PRINT 

5570 PRINT" THANK YOU FOR ALLOWING ME TO HELP YOU WITH YOUR TAXF«' 

5580 PRINT "THIS YEAR, 

5590 PRINT 

560 PRINT 

56:1.0 GOTO 5680 

5620 PRINT 

5630 IF X:Ln) THEN RETURN 

5640 FOR :i>::l. TO 20>xXl 

5650 X2-SQRCI) 

566 NEXT I 

5670 RETURN 

5680 END 

5690 PRINT 

570 PRINT 

5710 PRINT "YOUR TAXES " ; 

5720 PRINT "ARE GREATER THAN WOULD BE EXPECTED FOR YOUR INCOME:." 

5730 PRINT "THIS MAY CAUSE YOUR RETURN TO BE AUDITED," 

5740 PRINT 

5750 F'RINT 

5760 RETURN 

5770 PRINT 

5780 PRINT 

5790 PRINT "YOUR MEDICAL EXPENSES "t 

580 GOTO 5720 

5810 PRINT 

5820 PRINT 

5830 PRINT "YOUR INTERESTS " i 

5840 GOTO 5720 

5850 PRINT 

5860 PRINT 

5870 PRINT "YOUR CONTRIBUTIONS "J 

5380 GOTO 5720 

5390 PRINT 
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DPYRIG 





IBsY 


Sii::::::::n:: 


590 


PRINT 




59 J. 


PRINT " YOUR 


LOSSES i v 


5920 


PRINT 




5930 


PRINT 




5940 


RETURN 








)SSES MAY CAUSE! YOUR RETURN TO BE. AUDITED, 
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1040 FEDERAL TAX PROGRAM .1. NO I. .1.1)'.: I NO Sl,HE D! .11. E "A' AN J.i SUPPLEMENTAL 
SOHEDUL I:: S ' 8 " v ' { ' * ''it's- AND ' F ' ■> 



ANSWI; R ALL. (OUR 3'f J HNS ■> IF IT DOESN'T APRI. V ? LiR YOU DON'T HAVE 
INCOME OR EXEMPTIONS EAR THIS ITEM? ENTER A 0' UNLESS !HE 
U E S T [ N E F (,! j R E S A Y E S OR ' N ' A N E W E E < 



1 1 1 E 1 4 E |V h i,j |; |... |. . 8 ];;; d n n e f | R S T < 

ARE YOU HAKR Jk U>- Y 

ARE TOO METRE A JOIN! RETURN; 5 Y 

HOW MAN/ OlHER DEPENDENTS DO YOU CLAIM? 3 

ART YOU OR fUUR SPOUSE (IF FIE I NO JOINT RETURN) OUER 65* 
ENTER A 0? 1 » OR 2? 

ARE YOU OR YOUR SPOUSE (IE E I LI NO .JOIN I RETURN) BLIND, 
ENTER A 0:> \.v OR 2'i J 

W H A r I. S 1 1 -I F (3 R S S A E S ON Y OR W •-• 2 ' S ? I. 2 4 

WHAT TS YOUR EFDERAT. WIT HOLDING? 2028 

WHAT IS YOUR SPOUSE'S GROSS WAGES? 9600 

WHAT HAS YOUR SPOUSE PAJTi UNTO FEDERAL TAXES? 1640 

ENTER All. TNEEESTS RECEIVED (FROM SCHEDULE 'B')? 

EN I E R A L I D I U T D E" N D S R E E 1 E D ( f" R M S C H E D U L E ' B ' ) ? 

DID YOU IlEMIZE YOUR DEDUCTIONS ON YOUR FEDERAL RETURN LAST YEAR? Y 
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HOW MUCH Si fill- AND LOCAL TAX EEIUNDS '{i;n.i YOU RE.CEIUE FROM 
I ...A. SI YEARS TAXES? u 

now much a i imony .ui:u you in ceIvE? o 

HOI. MUCH BUSINESS I Ni ONE OE LOSS DTD YOU R R EI U IE , IF LOSS? 
F N I E RAN l ;: A l I. V F A h U N 7 , ? 

HOW MUCH Din fOI! !,A1N UR LOOSE FROM SAIL OR EXCHANGE: OF 
CAPITAL ASSETS, IF LOSS. ENTER A NEOAITOE AMOUNT? 

I'UIi YOO HAOF ANY FARM i:NCOME OR LOSS* IE I OSS ENTER 
A NEGATIVE ft MOUNT v o 

ENTER ANY MOLING EXRE.NS!:: YOU HA'fL (INCLUDE WITH YOUR RETURN 
A ' WOLS FORM If hN'i' ) f u 

! :.' N ! E. E p i Y; M I: MI'S TOW A R 1 1 A E E I' .1 R I- M E N T l :: ' LAN. '" A II A C H F 1 1 R M "5329' [ E 
YOU QUA I TFY>? 

ENTER ANY ALFMONY PAYMENTS YOO LANE MADE AND ARE ENlllIIED TO? 120 

DID vOU RECEIVE ANY nlBABLIIr INCOME, (IF NONE? EN'OR A 'OS 
i J T H IE R W I S I • v E N T E IV T H E A n U N n ? <> 



TELI S (' UMP! EH EG SIDE "' 
THE REUERSi SIDE, 



.1 ' OF 'THE 1.040 FORM, NOW WE WILL DO 



ENTER ANY ESCI.MATED TAX PAYMENTS YO'l MADE FOR EAST YEAR'! 1 

ENIER I HE AMOUNT OE CREDIT FOR THE ETOERLY? 

F.N I KR THE AMOUNT OE LREDIT FOR CELII..D (TARE, (ATTACH FORM 
2441 10 RETURN')'' J 000 

ENTER THE AMOUNT UE INVESTMENT CREDIT? 



IT-U'S COMPLETES THE 1040 QUESTION AND ANSWER SECTION, 
WILL. BE DONE NEXT ♦ 



SCHEDULE 'A' 
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IF YOU DONM' WANT ID [TEMTXE YOUR FAXES? TYPE A '" ' OTHER WISE 

TYPE A ':L'-? I 

M E D I C A I . E X P EN S E 8 W 1 1. I... B F D N E F I. R S T , 



ENTER YUUR TOTAL. NFOICAI.. INSURANCE PREMIUMS, I HE PROGRAM WIT E 

CALCULATE IT-IE CORRECT AMOUNT AND ENTER IT INTO THE FORM? 270 

ITOU MUCH DID YOU PAY FOR PRE SCR IP 'I IONS? 255 

E N T E R A I .. I 0!' :••! £ R M E I 1 1. 1 ') A i F X P E N S E S A N D M I S C , C H A R E S ? 629 



I A < l~ X P E N S l; S J Li BE (ION E N E- X I" , 

ENTER HIE I ITT A L STATE AND LOCAL INCOME TAXES WTTHELD? 450 

E N I E P HIE' R I! A i. . E S f A T E 1' A X E S P A I D '? 8 4 

I OOK OP THE GASOLINE TAX YOU ARE ENTITLED TO IN THE TAX 

TABLE AND I HEM ENTER I HE AMOUNT HERE? 95 

LOOK UP THE SALES TAX CREDIT FROM THE TAX TABLE AND ENTER 
THE AMOUNT CORRESPONDING TO YOUR INCOME HERE, (NOTES IF YOU 
HAD ANY MAJOR F' OR CHASES SUCH AS A CAR OR ETC. YOU MAY ALSO TAKE 
AS A DEDUCTION v THE SALES TAX PAID ON THOSE ITEMS) 

ENTER I HE TOT A I SACKS TAX DEDUCTION HERE? 55? 

ENTER ALL PERSONAL PROPERTY TAKES PAID? 

ENTER ANY OTHER MISC. TAXES PAID EXCEPT 'PICA' AND 'FEDERAL' 
'THAI HAVE NOf ALREADY BEEN ENTERED? 



INTEREST EXPENSES WILL BE DONE NEXT, 



ENTER THE INTEREST YOU PAID ON YOUR HOME MORTGAGE? 3..., 1 267 

ENTER ALL OTHER INTERESTS YOU PAID SUCH AS ON LOANS r CREDIT CARDS r 
AND ETC? 30S 
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( ■ N T R 3: B I J ! J N S W X I... I... B h. D N L N I: X 1" * 



ENTER AMY CASH CONTRIBUTIONS YOU MADE? 2650 

LNiFR CASH VALUE OF OTHER CON TR1BIJTI0NS MADE SUCH AS CLOTHES? 
OLD FURNITURE? AND E I L Li' 5/ 



YOUR LONfRI'BUHUNS ARE GREATER THAN WOULD BE EXPECTED FOR YOUR INCOME 
THIS MAY CAUSE YOUR RETURN 10 BE AUDITED, 



OSSES WILL BE DONE I'-if- 



M f E R A I .. L C A U U A F T Y' LOS S !:.' S ? I 8 



lniilr all ] nsurano!;: reimbursements for these loss (if any)? 
::nter $100 for each loss? .1.00 



MISCELLANEOUS DEDUCTIONS WILL BE DONE NEXT 



ENTER ALL UNION DOES PAID? 72 

ENTER ALL OTHFu HISC* DEDUCTIONS SUCH AS COST OF BOOKS v UNIFORMS t 
TCGi.Sv ETC.? 305 



HIE TOTAL NUMBER OF EXEMPTIONS YOU CLAIMED IS 5 

YOUR TAXABLE INCOME IS * 17132 ♦ LOOK UP THIS AMOUNT IN THE TAX RATI 

"TABLES A? Bs C» OR D AND ENTER YOUR TAX HERE? 1679 



REFUND . ♦ * REFUND * * OF . ♦ » % 3489 



«■■»*** 
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thi:s finishes THE uu est toning selttun OF THE 1040 tax fro be am 

NOW THE FRO OF AM WILL PRINT OUT T'HE TOTALS TO BE USED IN 

I 7 i: L L I N G 1 J I " YOU E TAX F R M S , T H E ' :l 4 ' F RM WTI i P F 

FIRST, 

D(J YOU HAVE. HARU COPY (V OR N)? Y 

f HI.-.. F 01. .1. OWING i-iRE fHF LINE NUMBERS AND AMOUNTS TO BF FNTFRFB 
ON YOUR 1040 | OEM, 



UCC - COP /RIGHT .1978 BY - SCIENTIFIC RESEARCH 

LINE NUMBER AMOUNT AMOUNT 

/ 5 

8 22000 

9 
IOC 

1 1 

12 

13 

14 
19 

21 22000 



2 2 





24 





27 


1200 


28 




29 




30 




3.1. 





1200 
20800 

20800 
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THIS IS THE |J ND OF THE FRONT SIDE OF THE 1040 FORM, NOW THE 
BACK BIDE WILL BE FT I LED IN* 



UCC ~ COPYRIGHT J 978 BY •• SCIENTIF FG RESEARCH 

32 20800 

33 3668 

34 17:132 

35 1679 



39 





40 
4 1 


1500 

o 



46 1500 

47 179 

54 179 

55 3668 

56 
5/ 

62 3668 

63 3489 

64 3489 
66 



THIS END THE PRINT OUT OF THE '1040' TAX TOTALS, THE 
FOLLOWING LINE NUMBERS WILL REFLECT THE FIGURES 
WHICH ARE USED ON SCHEDULE 'A', 



UPC - COPYRIGHT 19/8 BY - SCIENTIFIC RESEARCH 
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LINE NUMBER AMOUNT 
1. :l 35 



4 47 

6t; 629 

7 676 

8 624 

9 52 
10 187 

1.1 450 

12 840 

13 95 

14 557 

15 

1 6 

17 1942 

18 1267 

19 308 

20 1575 

21 2650 

22 57 

24 2707 

25 180 

26 
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28 
29 
30 
31 

33 
34 
35 
36 
37 
38 
39 
40 
41 



180 

100 
80 
72 
305 



1942 
1575 
2/07 
30 

6868 
3200 
3668 



Tl 



C WISHES THE '1040' TAX PROGRAM, NOW YOU 



MUST FILL IN THE BLANKS ON THE APPROPRIATE FORMS AND THEN SIGN 
THEM IN HIE CORRECT PEACES, BE SURE TO INCLUDE ANY AND ALL 
SUPPORTING FORMS? IF ANY? AND A CHECK IF YOU 
OWE HIE COOERNMENl ANY TAXES. 

r HANK Y U F R A I. ! .0 W I N G M E 1 H E L P Y U U I T H Y U R T A X E S 
THIS YEAR» 



OK 
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Department ol the Treasury — Internal Revenue Service 

S. Individual Income Tax Return 



For the year January 1-Decernbor 31, 1977, or other taxable year beginning 




Presidential 
Election 
Campaign 
Fund 



7 

OU ' 



lomt relurn, eive first names and initials ol both) 

'=s L_,_ _fc_ azjusSL 

lumber and street, incluflim; apartment number, or rural route) 

U. ^^ifcj/ j] eft,< __/tv e 

e. State and Zli'icode 



1977 ending 
Last name 



lfl 




Check Only 
One Box 






4 




Your social security number 
Spouse's social security no. 



^ K 



XjL, 



L^_i_^. 



^L_£JCL 



-ei--' 



Do y6u want $1 to go to this fund 

If joint return, does your spouse want $1 to go to this fund? 



Note: Checking "Yes" will 
not increase your tax or re- 
duce your refund. 



Single 

Married filing joint return (even if only one had income) 

Married filing separately. If spouse is also filing, give spouse's social security number in the space above 

and enter full name here fe> 



Unmarried Head of Household. Enter qualifying name ► 

Qualifying widow(er) with dependent child (Year spouse died >■ 19 



Pvamntinnc : 



Always check 
the "Yourself" 
box. Check 
other boxes if 
they apply. 



See page 7 of Instructions. 

). See page 7 of Instructions. 



Yourself 



El s, 



□ 
□ 



65 or over 



□ 



Blind 



b IZ\\ Spouse | | 65 or over | ] Blind 

c First names of your dependent children who lived with you ►.. prTfi-.vt .K ; ..iX.tJL.h. r>& 



d Other dependents: 

(1) Name 



(2) Relationship 



(3) Number ot 
months lived 
In your home. 



(4) Did dependent 
havo income ol 
$750 or more? 



(5) Did you provide more 
than one halt of da 
pendent's support? 



Enter number of 
boxes checked 
on 6a and b fc 



Enter number of 
children listed ^ 

Enter number 
of other 
dependents ► 



2- 



3 




Add numbers 
7 Total number of exemptions claimed above" '" bo * e L 



Q 



US 



Wages, salaries, tips, and other employee compensation. IbieflUS slh"uSm] 



9 Interest income. (If over $400, attach Schedule B.) 

ia_ ni -a a ft* 1 ' ova ' WOO. attache : : 

10a Dividends \ schedule b ) ; , 10b less exclusion i , Balance ► 

(See pages 9 and 17 of Instructions) 
(If you have no other income, skip lines 11 through 20 and go to line 21.) 

11 State and local income tax refunds (does not apply if refund is for year you took standard deduction) . . . 

12 Alimony received 

13 Business income or (loss) (attach Schedule C) 

14 Capital gain or (loss) (attach Schedule D) 

15 50% of capital gain distributions not reported on Schedule D 

16 Net gain or (loss) from Supplemental Schedule of Gains and Losses (attach Form 4797) . . 

17 Fully taxable pensions and annuities not reported on Schedule E 

18 Pensions, annuities, rents, royalties, partnerships, estates or trusts, etc. (attach Schedule E) . 

19 Farm income or (loss) (attach Schedule F) 

20 Other (state nature and source— see page 9 of Instructions) ► 

21 Jgtoj income. Add lines 8, 9, and 10c through 20 ."..".'."► 



( // none, skip lines 22 through 27 and enter zero on line 28.) 



23 
24 



Moving expense (attach rorm 3903) 

Employee business expenses (attach Form 2106) 

Payments to an Individual retirement arrangement (from at- 
tached Form 55329, Part III) 

Payments to a Keogh (H.R. 10) retirement plan 

Forfeited interest penalty for premature withdrawal 

27 Alimony paid (see page 11 of Instructions) 

28 Total adjustments. Add lines 22 through 27 



25 
26 



22 
23 

24 



25 



26 



27 



jQ_. 



O 



\ -xoo 



29 Subtiact line 28 from line 21 

30 Disability income exclusion (sick pay) (attach Form 2440) 

31 Adjusted gross income. Subtract line 30 from line 29. Enter here and on line 32. If you want 
IRS to figure your tax for you, see page 4 of the Instructions ► 



10c 



11 



12 



13 



21. 

15 



16 



17 



18 



_19 
20 



21 



-2- *?-<D O O 



O 



O 



O 



H. 



O 



O 



O 



0~ Z- ooo 
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.1040 (1977) 



Pag® 2 



32 Amount from line 31 

33 If you Itemize deductions, enter excess itemized deductions from Schedule A, line 41 ... • 

If you do NOT itemize deductions, enter zero 

Caution: If you have unearned income and can be claimed as a dependent on your parent's 

return, check here ► [J and see page I J of the Instructions. Also see page 11 oi 

the Instructions if: 

• You are married filing a separate return and your spouse itemizes deductions, OR 

• You file Form 4563, OR 

• You are a dual-status alien. 

34 Tax Table Income. Subtract line 33 from line 32 

Note; See Instructions for line 35 on page 11. Then find your tax on the amount on line 34 
in the Tax Tables. Enter the tax on line 35. However, if line 34 is more than $20,000 
($40,000 if you checked box 2 or 5) or you have more exemptions than those covered in the 
Tax Tables for your filing status, use Part I of Schedule TC (Form 1040) to figure your tax. You 
must also use Schedule TC if you file Schedule G (Form 1040), Income Averaging. 

35 Tax. Check if from ^ Tax Tables or Q Schedule TC 

36 Additional taxes. (Seepage 12 of Instructions.) Check if from f] Form 4970, Q Form 4972, 
□ Form 5544, rj Form 5405, or fj Section 72(m)(5) penalty tax 



J7 Total. Add lines 35 and 36 

38 



39 
40 

42 
43 
44 
45 

46 



Credit for contributions to candidates for public office 

Credit for the elderly (attach Schedules R&RP) 

Credit for child and dependent care expenses (attach Form 2441) . 

Investment credit (attach Form 3468) 

Foreign tax credit (attach Form 1116) 

Work Incentive (WIN) Credit (attach Form 4874) 

New jobs credit (attach Form 5884) 

See page 12 of Instructions 

Total credits. Add lines 38 through 45 



38 



_39_ 

40 
41 " 
42 



43 



_44_ 
45 



D 



I s~oo 



O 



48 
49 
SO 



Balance. Subtract line 46 from line 37 and enter difference (but not less than zero) 

Self-employment tax (attach Schedule SE) 

Minimum tax. Check here ► [J and attach Form 4625 

Tax from recomputing prior-year investment credit (attach Form 4255) 

Social security tax on tip income not reported to employer (attach Form 4137) . . 

Uncollected employee social security tax on tips (from Form W-2) 

Tax on an individual retirement arrangement (attach Form 5329) 



12 
S3 
54 Total tax. Add lines 47 through 53 



58 
59 
60 



Total Federal income tax withheld (attach Forms W-2, W-2G, and 

W-2P to front) 

1977 estimated tax payments (include amount allowed as credit 

from 1976 return) 

Earned income credit. If line 31 is under $8,000, see page 2 of 

Instructions. If eligible, enter child's name ► 

Amount paid with Form 4868 

Excess FICA and RRTA tax withheld (two or more employers) . . . 
Credit for Federal tax on special fuels, etc. (attach Form 4136) . . 

Credit from a Regulated Investment Company (attach Form 2439) 

j See page 13 of Instructions 



55 
56 



.57_ 
58~ 



59_ 
60 

31. 

61a 



__3JLjL£i 



o 



o 



Total. Add lines 55 through 61a 



If line 62 is larger than line 54, enter amount OVERPAID ► 

Amount of line 63 to be REFUNDED TO YOU fr» 

Amount of line 63 to be credited on 1978 estimated tax . . . . ► L??L.L_ ! 

If line 54 Is larger than line 62, enter BALANCE DUE. Attach check or money order for full amount 
payable to "Internal Revenue Service." Write social security number on check or money order . . . ► 
(Check ► □ if Form 2210 (2210F) is attached. See page 14 of Instructions.) 



32 



33 



._2Le> .£©©.... 
3668 




34 



/'7/3z. 




35 


1 h'7°\ 


— 


36 






37 


lh-79 


— — 




46 


/ S~0O 


■ — 


47 


i tj2_ 


. — 


48 






49 






so 

23X 










52 






S3 






S4 


/ 7 9 


— 




86 







Under penalties of perjury, I declare that I have examined this return, including accompanying schedules and statements, and to the best 
of my knowledge and belief, it is true, correct, and complete. Declaration of preparer (other than taxpayer) is based on all information of 
which preparer has. any knowledge. 




P.iKi pfopaVai'r. signature and Identifying number (see instructions) 



V<i\:\ [MU|tlF' 



1 1 G '.WfiNM-Kr I'filNTlNK CFflCF : l'J.7 



i i aiTilibss" \'<7r VmiiltyarVnimr!, addn'ss, and idWiTfyiriK 'nnmbetT 

:<3 -H M ' I 10 
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B»prtm«fiS o4 ttm Trsaaurj 
Internal Revenue Service 



►• Attach to Form 1040. 



S&e Instructions for Schedules A and B (Form 1010). 



Name(s) as shown on Form 1040 



•f 



f\ a. \ r -e h O 



_"3Iil_/l_iL_!ijD..i4- 



Vour social security number 

3"Z~7: 5" '7! 6 :z-z. | 



Schedule A Itemized Deductions (Schedule B is on back) 



!?.fe r <R4' l'il!p^£<y;i(noi compensated by insur- 
ance or othemise)(Seepagel4 of Instructions.) 



(See page 16 of Instructions for examples ) 



1 One-half {but not more than $150) of in- 
surance premiums for medical care. (Be 
sure to IncEude in Sins 10 below) . . . 

2 Medicine and drugs ....... 

3 Enter 1% of line 31, Form 1040 . . . 

4 Subtract line 3 from line 2. Enter differ- 
«ne© (If less than zero, enter zero) . . 

5 Enter balance of Insurance premiums for 
medical car® not entered on line 1 . . 

8 Enter other medical and dental expenses: 
a Oestore, dentists, nurses, etc. . . . 

b Hospitals .......... 

e Other (itemize—Include hearing aids, 
dentures, eyeglasses, transportation, 
etc.) ► .._„.„...„.„ . 



7 Total (add fines 4 through 6c) . . . 
a Enter 3% of line 31, Form 1040 . . . 
9 Subtract Sine 8 from line 7 (It less than 

zero, enter mm) ........ 

SO Total (add lines 1 and 9). Enter here and 

on Una 33 ... fc» 



3X* 



■zrs" 



-3LO?) 



±2 



(See page 14 of Instructions.) 




21 a Cash contributions for which you have 
receipts, cancelled checks or other 

written evidence 

b Other cash contributions. List donees 
and amounts. fe> 



22 Other than cash (see page 16 of instruc- 
tions for required statement) .... 

23 Carryover from prior years ..... 

24 Total contributions (add lines 21a through 
23). Enter here and on line 36 . . ► 



zys 'o 



JilL 



Tsi cn 



[J^d^SM?®? Kirffli IJSE8((S5J 1 (See page 16 of Instructions.) 


25 Loss before insurance reimbursement . 


Tso 


*— 1 


26 Insurance reimbursement 


o 




27 Subtract line 26 from line 25. Enter dif- 
ference (if less than zero, enter zero) . 


/ Bo 


r-r 


28 Enter $100 or amount on line 27, which- 
ever is smaller 


/©© 


T 


29 Casualty or theft loss (subtract Bin® 28 
from line 27). Enter here and on line 37 . ► 


So 


- 



iscellaneous _. Deductions i 



(See page 16 of Instructions.) 



11 State and local Income . «, . . . , 

12 Real estate .......... 

IS State and local gasoline (see gas tax tables) 
M Caensral sales <see sales tax tables) . . 
IS Personal property ........ 

SS Other (itemize) ► 



Total (add lines 11 through 16). Enter 
here and on line 34 k» 



fr<? 



fA-o 



±L 



£L£JL 



-Q- 



.a. 



/ 14-?- 



30 Union dues . . . 

31 Other (itemize) ►. 



32 Total (add lines 30 and 31). 

and on line 38 ... . 



Enter here 



7%, 



2l£lE2 



37 7 



Summary of Itemized Deductions 



(See page 17 of Instructions.) 




(Sea page 16 of Instructions^) 



Home mortgage . 
Other (itemize) ►. 



Testa! (add lines 18 and IS). Enter here 
and on line 35 . . te» 



±2^1 



'3g>& 



1^7-sr 



33 Total medical and dental — line 10 . . 

34 Total taxes — line 17 . 

35 Total interest — line 20 

36 Total contributions — line 24 ... . 

37 Casualty or theft loss(es) — line 29 . . 

38 Total miscellaneous — line 32 ... 

39 Total deductions (add lines 33 through 38). ► 

40 If you checked Form 1040, box: 
2 or 5, enter $3,200 

1 or 4, enter $2,200 

3, enter $1,600 ........ 

41 Excess Itemized deductions (subtract line 
40 from line 39). Enter here and on Form 
1040, line 33. (If line 40 is more than line 
39 see "Who MUST Itemize Deductions" 
on page 11 of the Instructions.) . . ► 



UL1 



JL±±Jt^ 



Ifir 



*-7 a 'l 



6& 



3LZ3- 



G, S£>& 



3 JZ-^o 



3£6S 
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UCC COPYRIGHT 1978 BY - SCIENTIFIC RE SEARCH 



1040 FEDERAL TAX PROGRAM INCLUDING SCHEDULE 'A' AND SUPPLEMENTAL 

S C 1 1 E D L J L E S ' B ' r ' C ' , ' D ' * AND ' F ' * 



ANSWER ALL QUESTIONS* IF IT DOESN'T APPLY* OR YOU DON'T NAME 
INCOME OR EXEMPTIONS FOR THIS ITEM. ENTER A ' ' UNLESS THE 
QUESTION REQUIRES A 'YES' OR 'NO' ANSWER. 



THE 1.040 FORM WILL BE DONE FL'RST. 



ARE YOU MARRIED!' N 

HOW MANY OTHER OEPF N.UEN f'G DO YOU CLAIM? 

ARE YOU OR YOUR SPOUSE (IF FILING JOINT RETURN) OVER 65* 
ENTER A Ov I? OR 2? 

ARE YOU OR YOUR SPOUSE (IF FII ING JOINT RETURN) BLIND* 

ENTER A 0» Ik OR 2? 

WHAT IS THE GROSS WAGES ON YOUR W~-2'S? 2.1.045 

WHAT IS YOUR FEDERAL W IT HOLD ING? 3874 

E N T E R A I .. L I N E R E S T S R E C E I V E D ( F R M S C H E D U L E ' B ' ) ? 

ENTER ALL DIVIDENDS RECEIVED (FROM SCHEDULE 'B')? 150 

DID YOU ITEMIZE YOUR DEDUCTIONS ON YOUR FEDERAL RETURN LAST YEAR? N 

HOW MUCH ALIMONY DID YOU RECEIVE? 

HOW MUCH BUSINESS INCOME OR LOSS DID YOU RECEIVE* IF LOSS? 
ENTER A NEGATIVE AMOUNT*? 

HOW MUCH DID YOU GAIN OR LOOSE FROM SALE OR EXCHANGE OF 
CAPITAL ASSETS* IF LOSS* ENTER A NEGATIVE AMOUNT? 

DID YOU HAVE ANY FARM INCOME OR LOSS* IF LOSS ENTER 
A NEGATIVE AMOUNT? 

ENTER ANY MOVING EXPENSE YOU HAD* (INCLUDE WITH YOUR RETURN 
A '3903' FORM IF ANY)? 

ENTER PAYMENTS TOWARD A RETIREMENT PLAN* (ATTACH FORM '5329' IF 
YOU QUALIFY)? 
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ENtFR ANY ALIMONY PA t MEN IS YOU HAVE MA HE: AND ARE EN II 7 I LED TO? 

DID YOU RECEIVE ANY DISABILITY INCOME, (IF NONE » ENTER A ' ' c 
(.') f ITERUISE y ENTER THE AMOUNT)? 



THIS COMPLETES SIDE I, ' 01" THE 7040 FORM* NOW WE WIN DO 
THE REVERSE SIDE , 



ENTER ANY ESTIMATED TAX PAYMENTS YOU MADE FOR I.. AS! YEAR? 

ENTER rHF AMOUNT OF CREDIT FOR THE ELDERLY? 

ENTER THE AMOUNT OF CEEDET FOR CHILD CARE, (ATTACH FORM 
2441 7 RETURN!? () 

ENTER THE AMOUNT OF INVESTMENT CREDIT? 



THIS COMPLETES I HE 1040 QUESTION AND ANSWER SECTION, SCHEDUI E 'A 
ULIT.L BE. DONE NEXT, 



IE YOU DON'T WANT TO ITEMIZE YOUR TAXES* TYPE A '0' OTHERWISE 
TYPE A ' I •' ? 

THE TOTAL NUMBER OF EXEMPTIONS YOU CLAIMED IS 1 

YOUR TAXABLE INCOME IS * 27:195 . LOOK UP THIS AMOUNT IN THE TAX RATE 

TABLES X. Y» OR 7 AND ENTER YOUR TAX HERE? 4033 



THIS FINISHES THE QUESTIONING SECTION OF THE 1040 TAX PROGRAM. 

NOW THE PROGRAM WILL PRINT OUT THE TOTALS TO BE UGFTi IN 

FILLING OUT YOUR TAX FORMS, THE '1040' FORM WIN BE 

FIRST, 

DO YOU HAVE HARD COPY (Y OR N)? N 

HOW MANY SECONDS DELAY WOU! D YOU LIKE 

BETWEEN PRINTED LINES (0 = NO DELAY)? 12 
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i\-\E FOLLOWING ARE THE LINE NUMBERS AND AMOUNTS TO BE ENTERED 
[IN YOUR .1.040 FORM* 



UCC - COPYRIGHT 197!::! BY •••• SCIENTIFIC RESEARC 



I.NE NUMBER AM0UN1 



AMOUNT 



9 

OC 
I :l. 



.50 



v 



1 3 
14 
19 










,-, .-, 










21195 



28 



?Q 



30 
31 





21195 



THIS IS THE END OF THE FRONT SIDE OF THE 
BACK SIDE WILL BE FILLED IN. 



1040 FORM. NOW THE 
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UCC -■ C0'"'YRIGH7 .1.978 BY - SCIENTIFIC RESEARCH 



32 
33 
34 
35 
37 
39 
40 



2U95 



4033 
4033 



46 
47 
54 

i:r i:r 
-.1 ij 

56 



5874 



4 3 3 
4033 



62 
6 3 
64 
66 
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THIS FINISHES THE '1040' TAX PROGRAM, NOW YOU 

rnfl TM L t,.J N -J?rr BLANKS 0N THE APPROPRIATE FORMS AND THEN SIGN 
THEi'i IN THE UJRRECT PLACES, BE SURE TO INCLUDE ANY AND All 
SUPPORTING FORMS* IF ANY* AND A CHECK IE YOU 
OWE THE GOVERNMENT ANY TAXES, 

THANK YOU FOR ALLOWING ME 10 HELP YOU WITH YOUR TAXF< : i 
THIS YEAR, 
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Department of trip Treasury— Internal Revenue Service ■fl/77\ a 

S. Individual Income Tax Return l\\g)i 



For the year January 1-Decembor 31, 14/7, or other ta>able year beginning 



1977 ending 



— .E 

<y EX 
tf> to >■ 

a> 4> w 

o 



at name unu 

HJL 



JtL-rg,-- 



s. 



Lnst name 



Present home address (Number and street, inciting apartment number, or rural route! 

. 4-(n*l ^ /Sty VrCu 







For Privacy Act Notice, see 
page 3 of Instructions. 



m or post office, State and ZIP code. / , ,_ 

iUxo y fl ^ / A/ . JT ^^9^7 



Presidential 
Election 

Campaign I 
Fund 



Do you want $1 to go to this fund? 

If pint return, does your spouse want $1 to go to this fund? . 



Check Only 
One Box 



Exemptions 



Always check 
the "Yourself 
box. Check 
other boxes if 
they apply. 



-A 




Your social security number 
Spouse's social security no. 



S.e 



~U~a 



c r eTTeLt* 






: _, 

Note: Checking "Yes" will 
not /ncrease your tax or re- 
duce your refund. 



Single 

Married filing joint return (even if only one had income) 

Married filing separately. If spouse is also filing, give spouse's social security number in the space above 

and enter full name here ► 

Unmarried Head of Household. Enter qualifying name P- See page 7 of Instructions. 

Qualifying widow(er) with dependent child (Year spouse died t> 19 ). See page 7 of Instructions. 



Yourself 



b 



□ 
□ 



65 or over 



□ 



Blind 



Enter number of 
boxes checked 
on 6a and b i 



I J Spouse L I 65 or over I I Blind 

c First names of your dependent children who lived with you F> - £n? a r number of 

children listed |^> 









d Other dependents: 

(1) Name 



(?) Relationship 



(3) Number ol 
months livad 
in your home. 



(4) Did dependent 
have income of 
$750 or more? 



(M Did ynu provide more 
than one halt of de 
pendent's support? 






7 Total number of exemptions claimed 



Enter number 

of other I I 

dependents ► I I 



Add numbers 
entered In boxes 
above ft, 



'i'M?«Mi 



(Attach Forms W-2. If univail- 



Balaoee ► 



8 Wages, salaries, tips, and other employee compensation, able, see page 5 of instructions ) • ■ - 

9 Interest income. (If over $400, attach Schedule B.) 

». . . /If o^r $400, attache 1 , „. , , . i 

10a Dividends { schedule b )- - -•-: 10b less exclusion ;... 

(See pages 9 and 17 of Instructions) 

(It you have no other income, skip lines 11 through 20 and go to line 21.) 

11 State and local income tax refunds (does not apply if refund is for year you took standard deduction) . . . 

12 Alimony received 

13 Business income or (loss) (attach Schedule C) 

14 Capital gain or (loss) (attach Schedule D) . . . 

15 50% of capital gain distributions not reported on Schedule D 

IS Net gain or (loss) from Supplemental Schedule of Gains and Losses (attach Form 4797) . . 

17 Fully taxable pensions and annuities not reported on Schedule E 

18 Pensions, annuities, rents, royalties, partnerships, estates or trusts, etc. (attach Schedule E) . 

19 Farm income or (loss) (attach Schedule F) 

20 Other (state nature and source— see page 9 of Instructions) ► ... . ... . . 

21 Total income. Add lines 8, 9, and 10c through 20 ► 



'merits to Income 



(If none, skip lines 22 through 27 and enter zero on line 28.) 



22 
23 



25 
26 
27 
28 



Moving expense (attach Form 3903) 

Employee business expenses (attach Form 2106) 

Payments to an individual retirement arrangement (from at- 
tached Form 5329, Part III) 

Payments to a Keogh (H.R. 10) retirement plan 

Forfeited interest penalty for premature withdrawal 

Alimony paid (see page 11 of Instructions) 

Total adjustments. Add lines 22 through 27 



J>2 
23 



J24_ 

'26_ 
27 



O 



o 



29 Subtract line 28 from line 21 . . 

30 Disability income exclusion (sick pay) (attach Form 2440) 

31 Adjusted gross income. Subtract line 30 from line 29. Enter here and on line 32. If you want 
IRS to figure your tax lor you, see page 4 of the Instructions ► 
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'm 10-10 (1977) 



Page 2 



m 



32 Amount fiom line 31. 

33 If you itemize deductions, outer excess itemized deductions from Schedule A, line 41 ... . 

If you do NOT itemi7e deductions, enter zero j 

Caution: H you have unearned income and can bo claimed as a dependent on your parent's 

return, check here ► [_] and see page 11 of the Instructions Also see page 11 of 

the Instructions if: 

* You are married filing a separate return and your spouse itemizes deductions, OR 

• You file Form 4563, OR 

© You are a dual-status alien. 

34 Tax Table Income. Subtract line 33 from line 32 

Note: See Instructions for line 35 on page 11. Then find your tax on the amount on line 34 
in the Tax Tables. Enter the tax on line 35. However, if line 34 is more than $20,000 
($40,000 if you checked box 2 or 5) or you have more exemptions than those covered in the 
Tax Tables for your filing status, use Part I of Schedule TC (Form 1040) to figure your tax. You 
must also use Schedule TC if you file Schedule G (Form 1040), Income Averaging. 

35 Tax. Check if from Wf Tax Tables or fj Schedule TC 

36 Additional taxes. (See page 12 of Instructions.) Check if from fj Form 4970, '["] Form 4972, 
□ Form 5544, Q Form 54 05, or rj Section 72(m) (5) penalty tax ^ 

37 Total. Add lines 35 and 36~ ST" 




34 






■%'■ 



1*53 



38 Credit for contributions to candidates for public office 

39 Credit for the elderly (attach Schedules R&RP) , 

40 Credit for child and dependent care expenses (attach Form 2441) 

41 Investment credit (attach Form 3468) 

42 Foreign tax credit (attach Form 1116) 

43 Work Incentive (WIN) Credit (attach Form 4874) 

44 New jobs credit (attach Form 5884) 

45 See page 12 of Instructions 

46 Total credits. Add lines 38 through 45 



38 



39 
4& 
41 
42" 
"43 
44" 
45 



O 



Q 



47 Balance. Subtract line 46 from line 37 and enter difference (but not less than zero) 

48 Self-employment tax (attach Schedule SE) 



49 Minimum tax. Check here ► [J and attach Form 4625 

50 Tax from recomputing prior-year investment credit (attach Form 4255) . . . . 

51 Social security tax on tip income not reported to employer (attach Form 4137) 

52 Uncollected employee social security tax on tips (from Form W-2) 

53 Tax on an individual retirement arrangement (attach Form 5329) 

54 Total tax. Add lines 47 through 53 






m 






mm 



35 

36 


f-0 3 3 


. — , 






37 


4-0 33 


— 




r. 



55 Total Federal income tax withheld (attach Forms W-2, W-2G, and 
W--2P to front) 

56 197/ estimated tax payments (include amount allowed as credit 
from 1976 return) 

57 Earned income credit. If line 31 is under $8,000, see page 2 of 
Instructions. If eligible, enter child's name ► 

58 Amount paid with Form 4868 

59 Excess FICA and RRTA tax withheld (two or more employers) . . . 
©0 Credit for Federal tax on special fuels, etc. (attach Form 4136) . . 

61 Credit from a Regulated investment Company (attach Form 2439) 

61a See page 13 of Instructions 



46 


O 




47 


4-0 33 


r— 


48 






49 






SO 

"si 










52 
S3 










54 


fOS3 






62 Total. Add lines 55 through 61a 

63 If line 62 is larger than line 54, enter amount OVERPAID 

64 Amount of line 63 to be REFUNDED TO YOU 

65 Amount of line 63 to be credited on 19/8 estimated tax . . . . ► 1. 65 

66 If line 54 is larger than line 62, enter BALANCE DUE. Attach check or money order for full amount 
payable to "Internal Revenue Service " Write social security number on chock or money order . 
(Check ► [7] if Form 2210 (2210F) is attached See page 14 of Instructions.) 

Under penalties of per|ury,7 declare that I have examined this return, includinglcconipanying schedulesand "sMemelite71indTolno"best 
of my knowledge and belief, it is true, correct, and complete. Declaration of prepaier (other than taxpayer) is based on all information ot 
which preparer has any knowledge. 




igruitufey 



J^U^ 



^/bk=±ii 



a- i-y-A . 



Date 



Spouse's signature" (if filin'g'iomtiy, "BOTH fiiust " 
sign oven if only one had income) 



Pud proijorer'b signature and identifying number (see instructions) 



Mai.: p. 



uiltl'ttx; 'or umpToyePS rianto wi(frn:;s" aiiiruTuntifylntf numtidtj 



<f 1 t'-l/i ><NM' NT HMNTINi; 'TUCK : IV 
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BALANCE: 

DFSCRIPTION 

Balance is a computer program for reconciling your bank statements. The 
program uses the checks and deposit slips returned with your monthly 
bank statements as well as those items that are outstanding to provide 
you with a balanced accounting. 



USERS 

Individuals who want to keep a detailed set of banking records to augment 
the statements they receive from their bank. Balance will generate sup- 
plemental listings whenever you like, NOT just at the end of the month. 



INSTRUCTIONS 

Balance is tutorial and will give you detailed instructions if listed 
out. Initially your data must be entered into the program using data 
statements before running it for the first time. REMEMBER you must 
delete the sample data already in the program! After each run is 
completed and the amounts are correct, enter the latest checks and 
deposits in data statements into the program and save this updated 
version for the next time you use the program. Study the example care- 
fully and refer to the sample data in the program used to generate the 
sample run. 



LIMITATIONS 

Some of the variables used are double alpha characters. In some systems 
these may have to be changed to an alpha and numeric pair ie: II may 
have to be changed to 19 - for some systems. With the DIM statements in 
lines 780 and 790 set for 100 the program will require 16K of memory to 
execute. The source code is 8K long but may be reduced by omitting the 
instructions when typing the program into your computer. 
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BALANCE 



icc ii::::: 
SiE::::i:iE.; 



It |f " ;;||.. •!::;;.. ;;;;;." s 

if:;:e:se;:;iAf;cc 



.1. 


REM 


110 


REM 


120 


REM 


130 


REM 


I'-l 


REM 


150 


REM 


160 


REM 


170 


REM 




STEF 


180 


REM 


190 


REM 


20 


REM 


210 


REM 




T„ 


220 


REM 


230 


REM 


2't0 


REM 


250 


REM 




VE 


260 


REM 


270 


REM 


280 


REM 




R 


290 


REM 


30 


REM 
....... 


310 


r 1::. 
REM 


320 


REM 


330 


REM 


340 


REM 


350 


REM 


360 


REM 


370 


REM 




"l"A ♦ 


380 


REM 


390 


REM 


( U)0 


REM 


410 


REM 


420 


REM 


430 


REM 


440 


REM 


450 


REM 


460 


REM 


470 


REM 

IV.' 


480 


1"- 

REM 


490 


REM 


50 


REM 


510 


REM 


520 


REM 


530 


REM 


540 


REM 


550 


REM 


560 


REM 


570 


REM 



DESCRIPTION 

"BALANCE:* IS A BASIC PROGRAM THAT RECONCILES A RANK 
Si AILMENT BALANCE WITH THOSE CHECKS AND DEPOSITS THAT API-" OUT- 
SfANDING* STARTING WITH THE ENDING BALANCE*. THF PROGRAM 
SUBfkACfS OUTSTANDING CHECKS AND ADDS OU I STANDING DEPOSITS IT) 
ARRIVE AT THE BOOK BALANCE AT THE END OF THE PERIOD* THE ADJU 

BOOK BALANCE IS THE BOOK BALANCE MINUS SERVICE CHARGES, 

INSTRUCTIONS 

THE PROGRAM WILL ASK YOU TO INPUT SOME INFORMATION, FIRS 

IT WILL ASK YOU TO "PLEASE ENTER THE NUMBER AND AMOUNT OF 
EACH CHECK WRITTEN AND ANY OUTSTANDING AT THE BEGINNING 
OF THE PERIOD," AFTER THE QUESTION MARK, YOU TYPE THF' CHECK 
NUMBER FOLLOWED BY A COMMA , AND THE CHECK AMOUNT, WHEN YOU HA 

NO_ MORE ^ INFORMATION TO ENTER* RESPOND TO THF: QUESTION MARK 

NEXT i THE PROGRAM WILL ASK YOU TO "PLEASE ENTER THF: NUMBE 

AND AMOUNT OF EACH DEPOSIT AND ANY OUTSTANDING AT 

HIE BEGINNING OF THE PERIOD." AFTER THE QUESTION MARK, YOU TY 

THE! DEPOSIT NUMBER, FOLLOWED BY A COMMA , AND THF DFPOS'I T 
AMOUNT, WHEN YOU HAVE NO MORE INFORMAT ION TO ENTER, RFSF'OND 
TO THE QUESTION MARK WITH A " > * " 

YOU ENTER DATA INTO THE PROGRAM AS FOI i OWfjj 
CI.) TYPE THE NUMBER OF THE LINE INTO WHICH YOU WANT TO PUT DA 

(2) TYPE THE WORD "DATA, " 

( 3) T yp E ; the: DATA REMEMBERING TO SEPARATE EACH PTFOF OI~ INFOR 
NATION BY A COMMA, 

THE DATA THAT YOU ENTER INTO THE: PROGRAM IS J 



LINE NO. 



TYPE." OF' INFORMATION 

ENDING BALANCE , SERVICE CHARGES 

CHECK NUMBER , CHECK AMOUNT 

ENTER 0„0 INTO A LINE WFIEN YOU HAV 

NO MORE: DATA 

DEPOSIT NUMBER. DEPOSIT AMOUNT 

0t0 TO SIGNAL NO MORE DEPOSITS 



IDENTIFICATION OF VARIABLES USED IN THE PROGRAM 

Z-ENDING BALANCE ON STATEMENT y S^SERVTCF CHARGE' 
B-NUMBEE OF DEPOSITS ON STATEMENT 



50 


DATA 


510 


DATA 


<■■>** 


DATA 


**«•■* 


DATA 


<• -> ■» * 


DATA 



1234 



balance: -' *'■■ •" 

H....II c:::: o c o f- ■ v ir :ii: g ihi t ::il S* :;; ;;i " q 
es '•'ii'" ssf o ::n: iee: i*-! t ::ii: f" :::ii: c ifs h==t s iee a ir o m 

i: vB0 REM XCI.) TO X< 10 > -CHECK NUMBERS ON STATEMENT 

!=i90 REM 7ll.) TO Z ( .1. > -CHECK AMOUNTS ON STATEMENT 

60 REM Y<1) TO Y< 1 > -DEPOSIT NUMBERS ON STATEMENT 

.VI REM R(l> TO R < i ) -DEPOSIT AMOUNTS ON STATEMENT 

620 Rl-M C( ) -CHECK NUMBERS USED BY CUSTOMER 

630 REM A( ^CTECK AMOUNTS WRITTEN BY CUSTOMER 

?F - M ( > AND l...( )-0U'T STANDING CHECK NUMBERS AND AMOUNTS 

?EM D< > -DE POSIT NUMBERS USED BY CUSTOMER 

660 RF:M l-< ^DEPOSITS made e:y customer 

<EM E( ) AND G( ^OUTSTANDING DEPOSIT NUMBERS AND AMOUNTS 



6- ; H) 
65" 



670 

680 REM ... w 

690 REM >k * >x * > K * » ; * * : * c >K * * * * * >K * >K * >K * * * * * * * 

70 REM 

710 V*™ "*#**##**♦#*" 

720 DEFDBL I... 

730 DEFDBL G 

740 DEF-DEH... O-Z 

750 DIM LTIOO) vQC100> 

760 L8=0:N«0 JL9"0 JR™0 

770 rem read in state;:me:nt information 

7& o dim x < :i. o o )»Y( i o o ) * c (. i o o > r o c i o o ) v e: ( 1 > v A ( 1 ) 9 Z ( 1 ) 

79 DIM R < 1 ) 9 1- ( 1 > r G ( J. ) 

80 REM Z IS ENDING BALANCE 

310 REM S IS SERVICED CHARGES 

820 READ ZvS 

330 REM LOOP TO READ CHECK NOS, AND AMOUNT 

840 I^EM X( ) IS CHECK NOS* ON THE STATEMENT 

350 REM Z( ) IS CHECK AMOUNTS ON THEE! STATEMENT 

360 for :i:-:i. TO 100 

370 READ X(I>:-Z(I) 

880 REM WHEN X< )=0i» NO MORE CHECKS 

390 IF XCO-0 THEN 940 

90 REM A-T'OTAE.. NO, OF CHECKS ON THE STATEMENT 

910 LET A-A-fl 

920 NEXT I 

930 REM I...OOI"' TO REhD DEPOSIT NOS, ANE) AMOUNT 

940 FOR :i>l TO 10 

9S0 FJF'M Y( > IS DEPOSIT NOS. ON THE STATE- MENT 

960 REM R< ) IS DEPOSIT AMOUNTS ON THEE STATEMENT 

970 READ Yd) vRW) 

980 REM WHEN Y( >~Q» NO MORE DEPOBITS 

990 IF YCD-0 THEN 1030 

100 REM B-TOTAL NO, OF DEPOSITS ON THE STATEMENT 

1010 LET B-B+l 

1020 NEXT I 

1030 PRINT TAB < 12 > 5 "RECONCILEMENT OF BANK ACCOUNT" 

1040 PRINT 

1 ,:: i0 RFM INPUT LOOP FOR CHECKS WRITTEN ANE) OUTSTANDING 

I 060 PRINT "PI EASE ENTER THE NUMBER AND AMOUNT OF EACH CHECK WRITTEN AND" 

1070 l :: "RINT"ANY CHECKS OUTSTANDING AT THE: BEGINNING OF THE PERIOD" 

1030 PRINT" (ENTER 0»0 WHEN COMPLETED)" 

1090 PRINT "ENTER NUMBER* AMOUNT" 

1100 FOR 1-1 TO 10 

1110 REM C( > IS CHEK NOS, USED BY CUSTOMER 

1120 REM A( ) IS CHECK AMOUNTS WRITTEN BY CUSTOMER 
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BALANCE 



CHECK 



H....H c c o o F" v ir ::ii: o ii-ii t ::ii.. *?" :;.; ;i " o: 
ie* "h"' s ii:::: ::n::: he-: im ~r ::n: f~ :ii : c ir he: s he: .a ir o ii-h 

1130 INPUT C(I) .ACT) 

11 '10 IF C(I) = () THEN 1190 

1150 REM L8-T0TAL NO, OF- CHECKS USED BY CUSTOMER 

1160 LET L8-L8+1 

1170 NEXT I 

1180 N=Q 

1190 REM N--T0TAL NO, 01" CHECKS OUTSTANDING 

120 REM QC > --OUTSTANDING CHECK NO, 

1210 REM LC ) ^OUTSTANDING CHECK AMOUNTS 

1220 REM CHECK TO SEE IE THOSE CHECKS WHICH HAVE BEEN WRITTEN ARE ON 

1230 REM THE STATEMENT 

1240 FOR J--1 TO 1.8 

1250 FOR II- 1 TO A 

1260 IE C(J)~'X<II) THEN 1330 

1270 NEXT II 

1 28 N~N+ 1SQ(N) -~C ( J ) J I... ( N ) ■■■■■■■■ A < J ) 

1290 NEXT' J 

130 GOTO 1370 

1310 REM FOR THOSE CHECKS USED BY CUSTOMERS AND ON THE STATEMENT >• 

1320 REM TO SEE IF AMOUNTS CORRESPOND 

1330 IF ACJ)-ZCd> THEN 1350 

1340 PRINT "CHECK NUMBER" }C< J )J "MAY BE POSTED INCORRFOTI Y" 

1350 XCID-O 

1360 GOTO 1290 

1370 REM 

1380 REM COMPUTATION OF' S3 WHERE S3-T0TAL AMOUNT OF' OUTSTANDING CHECKS 

1390 FORI™ :L TON 

140 LET S3-S3H... C I > 

1410 NEXT! 

1420 PRINT 

1430 PRINT 

1440 REM INPUT LOOP FOR DEPOSITS MADE AND OUTSTANDING 

1450 PRINT "PLEASE ENTER THE NUMBER AND AMOUNT OF EACH DEPOSIT MADE AND" 

1460 PRINT "ANY OUTSTANDING AT BEGINNING OF PERIOD" 

1470 PRINT" (ENTER 0v0 WHEN COMPLETED)" 

1430 PRINT "ENTER NUMBER , AMOUNT" 

1490 FOR I>1 TO 10 

150 REM DC > IS DEPOSIT NOS* USED BY CUSTOMER 

1510 REM F( ) IS DEPOSIT AMOUNTS MADE BY CUSTOMFR 

1520 INPUT DC I) »F<I) 

1530 IF [)<!)«= THEN 1570 

1540 REM L9-TGTAL NO, OF DEPOSITS MADE AND OUTSTANDING 

1550 LET L9~-L9+:l. 

1560 NEXT I 

1570 FOR J-l TO I...9 

1580 FOEIX-1TOB 

1590 REM CHECK TO SEE IF THOSE DEPOSITS WHICH HAVE BEEN MADE ARE ON 

160 REM THE STATEMENT 

1610 IF D<J)~Y<IX> THEN 1720 

1620 NEXTIX 

1630 REM R^TOTAL NO, OF DEPOSITS OUTSTANDING 

1640 LET R«:R+1 

1650 REM EC > IS DEPOSIT NO, OUTSTANDING 

1660 REM GC ) IS DEPOSIT AMOUNTS;) OUTSTANDING 

1670 LETEf Ft )=■•[)< J) 
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balance: ••• '* •- 

H....H c c c o p "ii"' ir :u: g a — n ™r ::ii.. ":ii ; " :;; ;: '" & 
o y S3 c ::ii: he: m t ::e ii :::: " :ii:: g ir ihs: © ie: a ir o hi 

1680 I...ET C(R)=="F(J) 

.1.690 GOTO .1,750 

1.70 REM FOR THOSE DEPOSITS MADE hMD ON THE STATEMENT * CHECK TO SEE IF" 

1.710 REM AMOUNTS CORRESPOND 

1.720 IF F<J>™R<J> THEN 1740 

1730 PRINT "DEPOSIT" NUMBER" ?D < J) % "MAY BE POSTED INCORRECTLY" 

17 'H) LETY<IX)="0 

1750 NEXT J 

1760 REM COMPUTATION OF S4 NF-ERE St «TOTAL AMOUNT OF OUTSTANDING DEPOSI 

T"S 

1770 FOEI^I TOR 

1780 LET ST^TH+G < I ) 

1790 NEXT I 

180 PRINT 

181.0 PRINT 

1820 PRINT "ENDING BALANCE ON STATEMENT" ? TAB ( 36 > i 

1.330 PRINTUSING VH>?Z? 

13-H) PRINT" 

1850 REM IF N<1 THEN NO CHECKS OUTSTANDING 

1360 IE N<1 THEN 2010 

1370 PRINT "SUBS TRACT OUTSTANDING CHECKS : " 

1830 PRINT " "1 "NUMBER"? " "J "AMOUNT" 

1390 IF N=-:l. THEN I960 

190 REM TITCS LOOP PRINTS OUT THOSE CHECKS OUTSTANDING 

1910 FOR :i>:l. TO <N-1> 

1920 PRINT Q(I) 9 

1930 PRINTUSING V*?L<I)j: 

1.9 "'tO PRINT 

1950 NEXT I 

196 PRINT Q(N)v 

1970 PRINTUSING M*?L<N)2 

19S0 PRINTTAB(36) 'i 

1 99 PRIN FUSING \)% 1 S3 ? 

20 PRINT 

2010 PRINT 

2020 REM IF- R<1 THEN NO DEPOSITS OUTSTANDING 

2030 IF R<1 THEN 21.60 

20-4 print "add deposits outstandings" 

2050 if r~j. then 2120 

2060 rf;;m tfiis loop prints out those: deposits outstanding 

2070 FOR :i>l"FOFTl 

2080 PRINT E(I) * 

2090 PRINTUSING V*?G<D? 

210 PRINT 

2110 NEXT i: 

2120 PRINT E(R) r 

2130 F'RINFUSING U*?G<R>? 

217H) PRINT TAB<36>S 

2150 PRINTUSING U*?S4» 

2160 PRINT 

2170 PRINT TAB < 36) * " " 

2180 REM S9, THE BOOK BALANCE AT THE END OF THE PERIOD* EQUALS Tl-E 

2190 REM ENI'XrNG BALANCE MINUS THE 'TOTAL AMOUNT OF" OUTSTANDING CHECKS 

220 REM PLUS THE TOTAL AMOUNT OF OUTSTANDING DFiPOSITS 

221 LFTT EJ9-Z S3-f S4 
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>.!... A NCE 



ii.. J cg ii::::ii::ini : 



ii 



.•||::;; ; 


::tCB 


11 it 




:t. ■';;;;" :;;: ; "" :i;;;;i: 


:if 


'IC 


Fi 


i::ii;E 


iSKEiAR: 



2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

230 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

240 

24.1.0 

2420 

2430 

2440 

2450 

50 

5:1.0 

520 

530 

540 

550 

560 

570 

580 



PRINT "BOOK BALANCE AT END OP PERIOD " J TAB (36) } 

PRINT USING V$ t S9 } 

PRINT 

PRINT " SERVICE CHARGES " i 1 AB C 36 ) i 

REM 3-SERUICE CHARGES 

REM GOfO FNP IN LINE 118 FOR PRINT ROUTINE' 

PRINTUSING V*TS? 

PRINT 

REM 22 . THE ADJUSTED BOOK BALANCE: 

REM THE BOOK BALANCE MINUS SERVICE CHARGES > 

LE'rZ2^Z -S3-S4-S4 

PRINT TAB ( 36 ) } " « 

PRINT "ADJUSTED BOOK BALANCE" LIAR ( 36) i 

PRINTUSING V**Z2J 

PRINT 

PRINT 

PRINT 

PRINK "REVIEW OUTSTANDING CHECKS AND DEPOSITS 

REM THIS IS TEST REMOVE XT AND ENTER YOUR OWN 

REM TEST -•■■ 888.1000, 889.250 0, 890.300 0, 89 1. 

REM TEST •••• 620 . 10 00, 621.1000, 622.50 0, 623.100 



T" THE." EM) OF THE PERIOD. EQUALS 



REM TEST AD J, BOOK 
REM 

REM xox*: ENTER YOUR 
DATA 2345,67.5,55 
DATA 383.10 00 
DATA 389 v 20 
DATA 390.30 00 
DATA 0.0 
DATA 620.10 00 
DATA 621.10 00 
DATA 0.0 
END 



: 'OR CORRECT AMOUNT'S ! " 
DATA 

: i00, 392.150 0. 0.0 
0.0 



BALANC 
DATA H 



* 1840.12 



*::*.*: 
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RUN "BALANCE" ? :l. 

RECONCILEMENT 01" BANK ACCOUNT 

PLEASE ENTER THE NUMBER AND AMOUNT OF EACH CHECK WRITTEN AND 
ANY CHECKS OUTSTANDING AT THE BEGINNING OF THE: PERIOD 
CENTER 0*0 WHEN COMPLETED) 
ENTER NUMBERS' AMOUNT 
? 880 s- 1000 
? 882 ■< 25 A A 

V' i i V ,■ 3 ' ■ A ( > 

'■' 89:!. :•■ 500 
? 89 2 ? :l. 50o 

~r A '! A' 

CHECK NUMBER 889 MAY BE POSTED INCORRECTLY 



PLEASE ENTER THE NUMBER AND AMOUNT OF EACH 
A N Y U T S TAN D f N AT B E G I N N I N G F P E R I (.) 
( E N T E P ? W I i E N C M P I.. E T E D ) 
ENILR NUMBER* AMOUNT 
T 6 "'20 •> :l, 000 
'" !> 6 2 1 * '.00 
? 622!' 500 
? 6 2'3^ "I »" : 00 

I' ? 



DEPOSIT MADE AND 



1= N D I! N B A L A N \i N S T A T E M E N T 
8 U B B T R A C T U T 3 T A N D I N G C H E C K S *" 
NUMBER AMOUNT 
8 9J. * 500,00 

8 9 2 % :l 5 * 



$ 2345.67 



$ 2000,00 



ADD DEPOSITS OUTSTANDING? 
622 * 500 v 00 

62 J $ .1.000*00 



$ :l 500*00 



BOOK BALANCE AT END OF PERIOD 
SEROICE CHARGES 



1845*67 
5*55 



ADJUSTED BOOK BALANCE 



% 1840*12 



REVIEW OUTSTANDING CHECKS AND DEPOSITS FOR CORRECT AMOUNTS! 
OK 
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CHECKBOOK; 

DESCRIPTION 

Checkbook is designed to help you balance your checkbook. It may be run 
whenever needed as it does not require a current bank statement in order 
to balance your check book. 



USERS 

Individuals who would like to automate their checkbook or are having 
trouble keeping it balanced will find checkbook a welcome relief. 



INSTRUCTIONS 

Before the program is run you must enter your data in data statements 
as set out in the instructions, after this is done just type RUN and sit 
back. Detailed instructions may be obtained by listing the program. 
The program contains two sample runs with data which are almost the same 
however a mistake has been made in the second example so as to illustrate 
how the program handles errors. 



LIMITATIONS 

Lines 105 and 110 in the program contain DEFDBL statements which allow 
double precision calculations to be computed. If your Basic does not 
recognize these statements then omit these two lines from the program 
when loading it into your computer. This program also contains the 
Print Using V$ statement throughout the source code. If your Basic does 
not have this statement then replace it with Print and remove the Using 
V$. Some of the variables used are double alpha characters, ie- DV 
These variables may have to be changed to an alpha and numeric character 
pair for some systems. This program will store and execute in 5K Bytes 
of free memory in most systems. 
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GHEKBOOK 



c o n :::: " • v fc :n: g ii- -ii '"ii"' ::ii.. "P :;; ;| "' q 



10 REM CHECKBOK 

105 DEF'DBL IE: D 

110 DEF'DBI... K-£> 

115 PRINT CHR*< 26) SPRINT I PRINT SPRINT "COPYRIGHT 1977 BY •■•• SCIENTTFIl, Kb. 

SEARCH " J PEIN 1" i PRINT J PRINT 

120 PRINT "IF YOU WANT INSTRUCTIONS TYPE A 1 ELSE A 2 'S MNFU f ) 

125 IF LO-1 THEN 2-45 

130 F^RIN'H PRINT SF^RTNT „ 

135 PRINT "THIS PROGRAM WILL HELP YOU BALANCE YOUR CHECK BOOK, 

HO PRINT "IT IS VERY EASY TO USE AND WILL PROMPT YOU FOR ALL" 

H5 PRINT "NEEDED INFORMATION* BECAUSE THIS PROGRAM IS NOT FILE" 

•150 print -interactive: it will be: necessary for you to update: THE." 

.,55 pr TN t "PROGRAM EACH TIME BEFORE IT IS RUN AND THEN TO SAVE" 

160 PRINT "THE UPDATED VERSION AFTER YOU ARE FINISHED* THEN THE" 

165 PRINT "NEXT' TIME YOU NEED TO USE THE l :: 'ROGEAM SIMPLY RUN THE" 

170 PRINT "MOST RECENT VERSION. IT WILL BE NECESSARY FOR YOU TO" 

3 75 PRINT "SAVE: A NEW COPY EACH TIME OR ELSE YOU WILL HAVE TO REENTER " 

180 PRINT "THE CHECKS AND DEPOSITS EACH TIME* AGAIN AND AGAIN." 

105 PRINT .. .._,„ 

190 PRINT "ENTER ALL THE: CHECKS YOU HAVE WRITTEN THIS F'ERIUD IN 

195 PRINT "DATA STATEMENTS STARTING IN LINE 1000. ENTER YOUR NEW" 

?0 PRINT "DEPOSITS IN DATA STATEMENTS STARTING IN LINE 20 0." 

205 PRINT "ENTER ALL DEBITS AND SERVICE CHARGES IN LINES 30 0." 

710 PRINT "ENTER ALL CREDIT'S IN LINES 40 00. AND LINES 50 TO 5999" 

215 PRINT "ARE RESERVED FOR LISTING THE CHECKS THAT HAVE CLEARED" 

770 PRINT "ON YOUR ACCOUNT. 60 TO 6999 ARE RESERVED" 

225 PRINT' "FOE -THE: DEPOSITS THAT HAVE CLEARED. IT IS IMPORTANT" 

230 PRINT "THAT YOU DON'T REMOVE THE LAST' DATA LINE WHICH" 

235 PRINT "IS A FOR EACH FIELD." 

240 PRINT 

245 PRINT i PRINT i PRINT 

750 READ CK 

255 cv^cvh:;k 

260 if ck==0 then 275 

265 C1--C1 + 1 

270 GOTO 250 

275 READ DE 

280 DV^DV+DE 

285 IF DE-0 THEN 300 

290 C2^C2-Kl. 

295 GOTO 275 

30 READ SE 

305 CS""CS-*-SE 

310 IF SE>0 THEN 325 

315 C3™C3+1. 

320 GOTO 30 

325 READ CR 

330 EO-ECM-CR 

335 IF CR~0 THEN 350 

340 04--C4-KI. 

345 GOTO 325 

350 READ KC 

355 CC=CCH<C 

360 IF KO0 THEN 375 

365 C5«C5+1 
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CFIEKBOOK 



sr:::] 



ii F" ::n: c ir e;: • s iee #"11 Ft c hi 



370 

375 

380 
385 
390 
395 
40 
405 
410 
415 
420 
425 
430 
435 

440 
445 
450 

455 
460 



470 
475 
480 

485 
490 
49! :: ! 



GOTO 350 

READ BASBOBOBA 

IE BA""0 THEN 395 

C 6 : <; 6 •■>•:!. 

GOTO 375 

REM THIS IS THE BAI ANGING SECTION 

PRINT I PRINT 

PRINT 7AB(2()> } "FROM YOUR BANK STATEMENT "J PRINT 

PRINT "WHAT IS YOUR OPENING BALANCE! "JJ INPUT OF' 

PRINT "WHAT IS rOUR CLOSING BALANCE " 5 H NF'UT CF: 

V*-- " *###*### , :\\::\[. " 

PRINT "WHAT IS THE DATE CIES 10/23/77) "UTNF'UT M 

F'RINT i PRINT 

PRINT 'J PRINT: PRINT :! PRINT i PRINT " H p (": \i R n (1 K 

G I N G "SPRINT J PRINT 
PRIM r TAB < 5 > J " DA TIE " i D$ % PRINT I PRINT 
EOR 1-1 TO 72: PRINT » ■-• " J J NL» XT I SPRINT: PRINT: PRINT- 
PRINT "TOTAL AMT* OF CHEEKS WRITTEN TO DATE - " J SPETNTUSTNG V*»r 



Ii:': A L A N 



?C1 



" J C2 



" ? J PRINTUSING 0$ 5 D 



PRINT "NUMBER WRITTEN TO DA TF 

F'RINT 

PRINT "TOTAL DEPOSITS MADE." TO DATE 

PRINT "NUMBER OF DEPOSITS TO DATE 
F'RINT 

print "total number of deposits cleared to date- " ; ? printusing v*j|=: 

print "numf:f:r cleared 

PRINT 

PRINT "OPENING BALANCE THIS l :: 'ERIOD 



*C6 



* : PRINTUSING V*JO 



50 


505 


510 


515 


520 


525 



PRIN'l 



■■RINT "TOTAL SERVICE CHARGES AND DEBITS TO DATE- " i I PRINTUSING V*JC 

SPRINT USING V$SR 



530 



i::- 



i:: 



HO 

545 
■i 150 



560 



570 



PRTN I 

F'RINT "TOTAL CREDITS TO DATE 

C 

PRINT 

PRINT "TOTAL CHECKS CLEARED TO DATE 

C 

PRINT "NIJHBER OF CHECKS CI..EARFD =- "?C' :: i 

PRINT 

PRINT "NUMBER OF CHECKS OUT ST ANIVr'NG ■■■■■■ "?0L-C5 
PRINT 

PRINT "AMOUNT OUTSTANDING AS OF TFITS PERIOD 

V-CC 

PRINT 

F'RINT' "CLOSING BANK BALANCE: FOR THIS F'FTTVOD 
B 

BEN-EiC+RC-CS-'-CC 

PRIN'T "CALCULATED BANK BALANCE FUR THIS PERIOD 

BB--INT ( BB>k:I. ) / 1 
CB^INT(CEi:*:l.00)7:l0 
IE BB^CEi THEN 595 



" * <■ c:-i 



o:ntusing v*jc 



» '■ ) i::> 



? ^PRINTUSING y*jc 
* SPRINT USING MiMC 
i SPRINTUSTNG V$5B 
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CHEKBOOK - d - 

i. j ii:::: c c o n ;::: " ' v fs x g hi t* jl ":;; ; " :.. ;;| " E3: 



II::::" 'II' 



s; h:: :::n::: e;:: hm! 't :::ii::: ii :::: " :ii::: h:::::: Ft e;:: s: e::: iAi f<c h::.;:: ie-ti 



590 PRINT J PRINT " xokmokskk THERE IS AN ERROR* CHECK YOUR ENTRIES CAREFUU... 

Y »:»<>k>«oo: " 

595 PRINT 

60 PRINT 

605 PRINT 

610 PRINT 

615 CZ--DV t-RC~CS CD 

620 PRINT "TRUE CHECK BOOK BALANCE FDR THIS PERIOD ~-~- "» J PRINTUBINC V*»U 

625 PRINT 'TAB < 45 ) J " — " 

630 PRINT 

635 PRINT 

640 FOR :i>l TO 72 J PRINT "•••■" SiNEXT I SPRINT 

645 PRINT 

650 GOTO 5990 

655 REM WITH THE TEST DATA CLOSING BAL. SHOULD BE *• 88,82 

660 REM >K)fOK REMOVE ALL THE DATA STATEMENTS AND REPLACE THEM 

665 REM **•:* WITH YOUR DATA BEFORE YOU USE THIS PROGRAM 

670 REM TTIESE LINES ARE: RESERVED FOR CHECKS THAT HADE BEEN WRIT TEN 

1 DATA 23 * 1 6 > 45 « 1 9 » 73 * » 1 2*07 » 138 * 76 » 1 9,60 

1010 DATA 31 * 79 >• 25*0 Or 45- 19 c 34* 10 

1020 DATA 19*21 

1030 DATA 

1990 REM THESE: LINES HADE BEEN RESERVED) FOR DEPOSITS 

20 DATA 50m100?75v95!-20 

2010 DATA 10 

2020 DATA 75 

2030 DATA 25 

2040 DATA 

2990 re;:m these lines have: been reserved foe* IjEBITS and SERVICE CHAEBOLS 

3 DATA <■ 25 y »25u * 25 s> .5 

3010 DATA ,25 

3020 DATA 

3990 REM THESE LINEiB HADE BEEN RESERVED EDI* CREDITS 

40 DATA 7*16 

4010 DATA 

4990 REM THESE!: LINES HAVE BEEN RESERVE:!) FOR CHECKS THAT CLEARED 

5 DATA 45 •> 1 9 >■ 78 * * 1 9 , 6 v 23 > 1 6 

5 1 DATA 31 . 79 » 34 ♦ 1 >• 25 ♦ 

5020 DATA 

5990 EilEM THESE LINES RESERVED F'OR CLERAED DEPOSITS 

60 DATA 50? 100k 75 

6010 DATA 20 •> 95 

6020 DATA 

6030 END 
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|: ?UN"n'CKBOnK* ,2 



C F : " Y R I G H 1 ' J 9 77 BY ■■ - S C I EN T I ! : I C R E S E A R C H 



IF YOU WANT INSTRUCT TOMS TYPE A .1 ELSE A 



THIS PROGRAM WILL HELP YOU BALANCE YOUR CHECK BOOK, 
IT IS UEEY EASY TO USE ANU WILL PROMPT YOU EOR ALT 
NEEDED INFORMATION, BECAUSE THIS PPUGRAM IS NOT PILE 
INTERACTION; I! WILL BE NECESSARY FOR YOU 10 UPDATE THE 

i" poor ah lach lime; before it is run and then to same 

r H E U i : ' D A !' E 1 1 U E R S J N A F I E R YOU A R E F I N I: S H E D , T I- 1 E N T hi E 
NEXT LIME YOU NEEB T(! USE THE PROGRAM SIMPLY RUN THF 
MOST RECENT' UEESION, 3i WILL BE NECESSARY EOR YOU TO 
SAVE ft NEW ropy i^CH TTMF OR EESE YOU WILL HAUL TO REENTER 
THE CHECKS AND DEPOS LIS EACH TIMEy AGAIN AND AGAIN, 

ENTER ALL THE CHECKS YOU HA ME WRITTEN THIS PERIOD IN 
DATA STATEMENTS STARLING IN LINE 1000, ENTER YOUR NEW 

E I •' S IIS J N B A T A S I A I F M E N T (3 S T A R 1 1 N G I N I. . I N E 2 , 
ENTER ALT. DEBITS AND SERVICE CHARGES IN L [NES 3000, 
ENTER fill.. CREUIIS IN LINES 4000, AND LINES 5000 TO 5999 
ARE RESERVED FOR LISTING THE CHECKS THAT HAUL CLEARED 
ON YOUR ACCOUNT , 6 000 TO 6999 ARE RESEROED 

LOR THE DEPOS [18 THAT HOUR CLEARED, IT IS IMPORTANT 

1 HAT YOU DON- l PI MOVE THE LAST DATA LINE WHICH 
IS A FOR EACH FIELD, 



I "ROM YOUR BANK STATEMENT 

WHAT IS YOUR OPENING BALANCE ? 

WHAT ES YOUR CLOSING BALANCE ? 88,82 

WHAT IS THE BATE CIE i 10/23/77) ? 10/23/77 
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K 



B A L A N C 1 N G 



D A ! I::. i- 0/23 / / / 



TOTAL A HI , OF- CHECKS WRITTEN TO DATE 
NUMBER WRIT TEN TO BATE ~ :!. I, 

T T A I. . D IE P -• T ! R H A D E T (.) I J A 1 E 
NUMBER OE DEPOSITS TO BATE •- 8 

TO") A I... NUMBER OE BE POSITS CLEARED TO DATE- 
NUMBER CLEAR I: B :::; 5 

OPENING BALANCE Til IB PERIOD 

TlTT-il. SERVICE CHARGES AND DEBITS TO DATE™ 

lO TAB i; RED. ITS TO DATE ■■■■■ 

TOTAL CHECKS CLEARED TO DATE 
NUMBER OE CHECKS CLEARED ■-- 7 



T 472,07 

* 540*00 

$ 340,00 

$ 0*00 

$ 1,50 

* 7 . 1 6 

* 256,84 



DUMBER OE CHECKS OUTS LANDING -■ 4 

AMOUNT OUTSTANDING AS OE THIS PERIOD -■ $ 

CITS I NO DANK BALANCE FOR THIS PERIOD =•• $ 

OALCUI ATED BANK BALANCE EOR THIS PERIOD ■■■■■, $ 



88 T 
88T; 



52 
B2 



TRUE CHECK BOOK BALANCE FOR THIS PERIOD ~ * 



73,59 
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FROM YOUR !f.(ANK STATEMENT 



WHAT .[ S V I.) I J E 1 ' L" N J N I ;i B A I. . fi N C, I". 
WHAT TS YOUR CLOSING BALANCE 
WHAT 155 IMF DATE (IE; 10/23/, 



r yB.LES 
7 ) "i> 10/: 



H Fi C K B 



D ALAN I N G 



DATE 10/23/ 



TOTAL. AMT, OE CHECKS WRITTEN TO DATE 
NUMBER WRITTEN TO DATE =: 1 I 



TOTAL DEE OS ITS MADE TO DATE 
NUMBER OE DEPOSITS TO DATE 







f'OTAL NUMBER OF DEEDS ITS CLEARED Til DATE™ $ 
NUMBER CCEAEED = 5 

OPENING BALANCE THIS PERIOD :~ $ 

TOTAL SERUTCE CHARGES AND DEBITS TO DAFF = $ 
TOTAL. CREDITS TO DATE = $ 

TOTAL CHECKS CLEARED TO DATE = $ 

NUMBER OF CHECKS CLEARED •--• 7 

NUMBER OE CHECKS OUTSTANDING - 4 

A M U N T U T S I A N D .1. N G A S E 1" H I S P E R X [1 -■ $ 

CLOSING BANK BAL.ANCE FOR THIS PERIOD == $ 
CALCULATED BANK BALANCE FOR THIS PERIOD = $ 



472,0? 



5 40,00 



340, 


00 


0. 





.1. , 


50 


/ * 


-i / 
.1. 


256, 


84 



215,23 

88*83 

88,82 



J****** THERE IS AN ERROR, CHECK YOUR ENTRIES CAREFUL L 



Y ft***** 



TRUE CHECK BOOK BALANCE FOR THIS PERIOD = $ 



3,59 
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INSTL078: 

DESCRIPTION 

Instlo 78 determines loan parameters that use the rule of 78' s. This 
is the type of loan one would have if purchasing a car, boat, mobile 
home, etc. It is vastly different from regular compound interest, which 
is more familiar to most people. 



USERS 

Individuals planning to buy or who have already bought a large item, 
such as a car or boat and would like to know what is really owed on the 
item before buying, trading or selling it. 



INSTRUCTIONS 

Enter and just type RUN, the program will ask for all required inputs. 



LIMITATIONS 

This program uses multiple statements per line. Each new statement, 
within a line, is separated from the last one by a colon. The CHR $ 
(26) statement in this program is used to clear the CRT screen. If your 
system does not use this statement it may be deleted. Several of the 
variables contained in the source code are double alpha characters and 
may have to be converted to an alpha and numeric character pair for some 
systems. The source code will require 2K of memory to store and it will 
execute in the same 2K Bytes of memory. 
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IN3TL78 



10 
20 
30 

'•10 

50 

60 
70 
80 
90 

:i o o 
:i. l o 

120 
130 
JTIO 
150 
160 
170 
180 
190 
20 
210 
220 
230 
2^0 
250 
260 
270 
280 
290 

30 

310 

320 
330 



H-.H o c::::: c o p "if" r :::ii::: h::;;;; mi t ;t. ^ :;;;;"• q 
b "ii"' s ii:::::: ::n::: ie: \m\ "il :ii: f" :::ii: c ir ie : s in?: iA if*: c ii-ii 

PRINT CHRf (12) J A™ 12 

PRINT "THIS CALCULATES INSTALLMENT LOANS <ON THE El II F OF 7P.'S) " 

PRINT H^IN'U PRINT "WHAT IS THE AMOUNT YOU ARE COINS TO BORROW .'I ESS 

INTEREST) "J J INPUT PR 
PRINT! PRINT "FOR HOW MANY MONTHS "f'S INPUT M 

PRINH PRINT "AT WHAT INTEREST RATE (IN PERCENTAGE FORM IE! 6, 75 ^ "i 
t INPUT R 

print:; print "what is the: sales tax v. m ?: input st 
print sprint "add in any other misc, charges "jitnput v 

PR"^i ::, R>K(l-f-S')"/10 0)+K 

PRINT J PRINT "HOW MUCH DOWN PAYMETNT "?:; INPUT DP 

PR-PR DP 

F'RINT J PRINT J PRINT % PRINT J PRIM f " MONTHS " » " HON Till Y/PAYMF NT " ■■ " TOTAI Tf-rr 

EREST"! PRINT! PRINT' 

M.7>R/ 1 2 X MP=»PR*MI % IR=== ( J. •* MI ) -Hi I P A=-MP)KIR/ ( IR- • j, ) 

PACINI ( 1 0*PA f , 1 ) / 1 ! U--MWPA PR 

PRINT HYT'AB(A) J PA :< U 
PRINT ! PRINT ! PRINT I PRINT 



EREST" v "TOTAL INT, % "TOTAL PAID " 



XY-0J PRINT! PRINT 

PRINT "PAYMENT" , " PAY-OFF " y "INT 

PRINTS PRINT 

FOR l«l TO M 

IY=»MI)Kp 

PP-P+IY 

JT-IT+XY 

PP--.INT ( 1 ()JKpp+ „ ;|. ) /i o 

PRINT I v l :: 'P v TAB i 2A ) ? IY ■> TAB ( 39 ) * IT 5 TAB ( 5 / D J PA*I 

P~"P --PA+MIhcP 

next :e 

F'r:i:nt "the pay-off- - assumes you male: re:gular monthly payments, this" 

PRINT "AMOUNT' INCLUDES ALL INHERES! CHARGES, INTEI : <FST IS THE AMOUNT 

l :: 'ein7 "of' your regui ar mont hi y payment which does not reduce: (he " 
print' "principle* total. interest is the amount you owe to the month 

print "due date * ftt-guaedless * of how you make payments. " 
e:nd 
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RUN" INBTI.78" •> .1 

THIS CAI PWi. AT'ES TNiVf Al ! Hii Nl LOANS (ON "TAt- KATE of 78 * s ) 

l.ij.liVi IS TMJ- oR-niAM AH! hRA <;.; ) r t-Jt • 7 MA9kOU O ESS ] "N l ERRS i ) ! v ! OOOO 

FOR HOW MANY HO NT! IS ? 48 

A! OIIAF T NTT: •'■■ l-:: : , V Ro (T >:IN P!" 'RPR-i'i' hAI:. FORM s&>?6>75 ) ' ? 9,95 

I.JI IA I I S i I !E A A !. AS f vi « % '' 5 

AHA IN AA< lAiO-IE R A J SO, A: I .- ; . i : * ' > !i: S ' : ' Y 5 , 8 7 

MAW nl A H AOOA i •'■■•) f ORN I ' ! 250 

')(}j\jijl3 i'-jiKj i !!L Y 7Ph /'APR I 10'iAi. IN! EEL" 8 I 

ar 26 0.65 2 185,33 



l-AVMENl RAY-ORE INTRRI-SI TOTAL INT, TOTAL RAID 



0409 . 8 83 . 8977 

(),' 'I .6 -■2 . 46.1. t I 6<i , -7:9 



I 005:1. .7 
: > 8 7 0,8 4 
q i p <:> t -> 7 

9504 , 22 
93 18, 68 
9131 .62 
8943.05 
8752.95 
8561 .3 
8368.09 



: . ! ■! 



8173. 


31. 

9 5 


/ / '."' 9 




7579,. 


43 

25 


9175,. 
69/0, 


43 
9 6 



79 ,' : . c i V3 


* ■ \ ; i ' ■' 


78 ,0828 


40 5,0 | 


76 ,5995 


4 S : i 1 , 6 .1 


7 5.. 1.0 4.1. 


556,71 4 


?'3, 5965 


6 30*31 


7".' .. 0767 


702,38'? 


70 I 5446 


.'/A, 9 39 


/., o rt Cj? '.:> c\> o 


84 1 .9 37 


6 7,4428 


909 A3 74 


65.8/3 


9 75,24 7 


64 .2904 


.1 039,54 


62 , 695 


1 1.09,23 


6 1 , Si 6 6 


1 163,32 


59,4652 


1 222,78 


57,8305 


1.280,6! 


5 6 , !. 8 2 6 


1386,8 



2 60s 


65 


521. 


3 


781. 


ft 1::* 


J 042 


* 6 


1303 


■""} i"; 


1563 


, 9 


1824 


*55 


2085 





2345 


."■* 1:: 

. >j 


2 6 6 


. 5 


2 8 6 7 
3127 


. 1. 5 
,8 


3388 


,45 


3649 


,1 


3909 


,75 


4170 


,4 


443.1 


, 05 


4691 


, / 


4952 


,35 
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20 

21 <b-r:!/ >i)6 52.8465 1.444 

?'."> A"KSi"7 . '-.a '■■■■■■: I i."0 I 1495,39 

1544. 78 
24 5923.43 47.7401 1592.52 

1638.53 
2 * 5492.41 44.266,; :I682,8 



....... 



6764. 


83 


6557. 


03 


6347. 


54 


6136. 


34 


5923. 


4 3 


5/08. 


8 


5492. 


4 1 


5274. 


27 


5054. 


36 


■<-!832, 


A. i: 


4609. 


1.5 


4383. 


83 


4156. 


68 


3927. 


69 


3696. 


83 


3 4 6 4 . 


.1. 


3229. 


48 


2992. 


95 


2754. 


5 


2514. 


1.2 


2271. 


78 


2027. 


47 



54 
52 


.5213 

.8465 


49 


, :l 5 8 .1 

. 456 


47 


.7401 


46 


.0102 


44 


.266,; 


42 


.508 1 


40 


.7357 


39 


,9489 


37 


. 1476 


35 


.3316 


33 


.5009 


3 1 


.6553 


2 9 


.7947 


27 


.919 


26 


.028:1 


24 


.12.1.8 


2 2 


.2 


20 


.2626 


1 8 


.3095 


1 6 


.3404 


14 


.3554 


12 


.3543 


.1. 


.3369 


s.; 


30309 


6.; 


..,,... ,, 77 


4. : 


1.8579 


2.: 


1.0202 



725.3 



28 5054.36 40.7357 1766.04 

29 ■■••!832.65 38,9489 1804.99 

30 4609.1,5 37.1476 1842.14 

1877.47 
1910.97 

33 3927.69 31.6553 1942.62 

3 4 "K A Q A ., ft X ':> o . ' ;•■ o a •;•' | 9 7 ■"■> . a 1 

2000.34 

36 3229.48 26.028:1 2026.37 

37 2992.95 24.1218 2050.49 

2072.69 

39 2514.1.2 20.2626 2092.95 

40 2271.78 18.3095 2111.26 

41 2027.47 16.3404 2127.6 

4 2 1781.17 14.3554 2141.96 

43 1532.88 12.3543 2154.31 
^ 1282.56 10.3369 2164.65 

45 1030.22 8.30309 2:172.95 

4 <i 775.82 6.25277 2: 

47 519.35 4.185/9 21.83.39 

48 260.81 2.10202 2185.49 
THE PAY-OFF ASSUMES YOU MAKE REGULAR MONTHLY PAYMENTS. THIS 
AMOUNT INCLUDES ALL INTEREST CHARGES, INTEREST TS THE AMOUNT 
OF YOUR REGULAR MONTHLY PAYMENT WHICH DOES NOT REDUCE THE 
PRINCIPLE. 10TAL INTEREST IS THE AMOUNT YOU OWE TO THE MONTH 
DUE HATE * EE0LARDLE3S * OF HOW YOU MAKE PAYMENTS. 

OK 
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■'.'.! 4 / 3 . 


65 


5734. 


3 


5994. 


95 


6255, 


6 


6516. 


25 


6776 , 


9 


7037. 


55 


7298, 


2 


7558, 


85 


781.9. 


5 


8080, 


15 


8 3 4 , 


8 


8601, 


45 


8862. 


1 


9122, 


75 


9383. 


4 


9644, 


05 


9904. 


/ 


10165 


.4 


10426 




10686 


,6 


10947 


.3 


1:1.208 




:l 1468 


,6 


11729 


.3 


1.1.989 


,9 


12250 


.6 


12511 


,2 
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DEPREC2: 

nF.SCRIPTION 

Deprec2 calculates depreciation for any period of time using any of a 
number of rates of depreciation. The program handles Straight Line, 
Sum-of-the-Years Digits, Double Declining Balance and % Declining 
Balance. 



USER S 

Individuluals interested in maintaining depreciation records over ir- 
regular periods of time for use in financial sheets or for tax purposes 
will find this program very useful. 



INSTRUCTIONS 

Type RUN and the program will ask for all necessary inputs. A sample 
run is included after the source code listings. 



LIMITATIONS 

Deprec2 should execute in 2K Bytes of memory in most systems with little 
or no modifications. 



1251 



DEPREC2 -- .|. ... 

H...II o ii:::: 11:::::: n::::n n :::: " 'v ir :::ii::: c;;;; imi t - ::».. w :;;:»■■ :i;;;;i! 
es y s c :n: iee m t ' ::n: if- :ii: it:::: Ft iee s e: *•■% Ft h::::i o--i 

10 rem di=:pri=:c2 

20 input "this ddes depreo, 1-st j...ine :> 2-ddbs 3-byd^ >3^%de'c rai swhtoh " 

i a 

30 print "input •••• yr acq, ( 1965) y month acq. < :| .■ 12) » i..ipf ypf>*» sai uagf 

value: " 

40 print "initial cost:- pres, yr»y pres , month " s sinput m »p» uyr«r ? l ? •> y 

1 

50 PRINT 

60 L3^<L2'-M):*12-12 

70 L1=(Y:l.+12)H :: ' 

30 L5HXIH..4 

90 Y 2 ■•■-I... 5 / 1 2 1 Y 3"- 1 N T ( Y 2 •♦■ 1 E - 3 ) 

1 Y4--INT ( :l. 2^ ( Y2- Y3 ) ■*■ 1 E ••■• 3 ) 

110 IF Q>3 THEN 510 

120 IF Q^l THEN ''HO 

J. 30 IF Q~2 'THEN 330 

:l.' ; }0 REM SYD DEPREi: , 

150 Ei::l.~-OtE30--0 

160 FOR l"==:l. TO Y3 

170 BBXR D~BQ)x2 

130 l=:7-"<U J>P/6) 

190 B0~(E!t3/Ei:7)+B0 

20 NEXT I 

210 IF BOXR-D) THEN 310 

220 FOR I--1 TO (Y3-M) 

230 B3-- ( R • I.) Bl):*:2 

240 &7~<U~X+P/6) 

250 B1XB8/B7:m-B1 

260 NEXT I 

27 B9-== ( < B 1 • -B ) / 1 2 ) :»: Y4 

280 bo^bo*-b9 

290 if boxr-d) then 310 

30 GOTO 630 

310 B0-R--E) 

320 GOTO 630 

330 REM DDE: E)FE'EFC 

340 130" 

350 FOR I«l TO I...5 

360 B3^2;k<R-B0) 

370 B7^12>kU 

330 BCM30-KB8/B7) 

390 NEXT' I 

40 IF B0>R-D THEN 420 

410 GOTO 630 

420 I30==R-D 

430 GOTO 630 

440 REM ST LINE DEPREC* 

450 L6~<R-D)/<12JKU) 

460 B0^L6:*L5 

470 IF BOXR-D) THEN 490 

430 GOTO 630 

490 BOXR-D) 

50 GOTO 630 

510 REM % DECLINING BALANCE DEJPREC* 

520 Q 1-0/ 10 
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DEPREC 



ii...mi::;:::ii:::::: c::::ii::::iiii :::: "' ,, ii""iFi:::::ii:::c;;:;ii 
-ii"- s;c:;:";ii::.ii;;;;:ii"-i! i xfxc 



IR HE: S IEIiAiIR: 



530 
550 



570 
580 
590 
60 
610 
620 
630 
640 
650 
660 
670 
680 
690 
70 
710 
720 
730 
740 



BlT-0 

FOR I-"! TO I... 5 

B8""Q:l.*<:R""B0) 

B7^U>k:I.2 

B0--B0-t (B8/B7) 

next T 

IF BOX'R-D) THEN 6.1.0 

GOTO 630 

BO^R- D 

GOTO 630 

REM GENERATES Till:: PRINT OUTS 

PRINT 

PRINT "ACCUMULATED DEPRECIATION AS OF "?Y:l ?"/" i 

PRINT "UNDEPRECIATED BALANCE LEFT 

PRINT 

PRINT "ANOTHER ITEM (Y OR N) "H INPUT A* 

IF LEFT* ( A* » 1 ) :::; " Y " THEN 7 1 

GOTO 740 

PRINT " WANT YOUR OLD DATA " 5 J INPUT B* J IF LEFT* ( 

PRINT "INPUT -■■ DEP « < :l. p 2 v 3 v OR >3>y TOO J YEAR* & 

INPUT Q?L2LyT:;G0T0 50 

END 



" :::: <li " J I"! 



B0 



B0 



B* » 1 > 
MONT 



-i « " j 



ti-ie:n 20 
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RUN" DEPP EC 2" * :i. 

THIS. Vices DEPRm , .L:=ST.L INFf 7-DDBx 3~SYD{ >3^%DEC BAL t WHICH"? ! 

.!.' N P U i -VI •: A C , i |. 9 ,T 5 ) y M (1 N T i-l A C U <■ ( :l. :l 2 ) ? I.. I 1- E Y R 8 , „ s A I... V A G E A I... U 

T N IT I' A I... CO i : > I " I •' ft li: b .. Y ft > « p F? E S - HON I l-l -■ ;|. 9 7 ,:: i f ?■. P7 y 1 » / 5 ? 1 9 7 7 >• 3 "' 

ACCUMULATED DEPftEC T A HON AS OF-' 8 / 1977 -- $ 2378,57 
U N D I::' P R E 1 : 1 A I E" l'i B A L A N C E. ! E ! ; : 7 =■= <|; 5121,43 

A NO) HER 1 f Eh •: V nr N > "' ( / 

WANT Y'OOR HI.I.I DA I A ? N 

THIS DOES HE PR EC* .E-STTLINEJ 2-DDDJ 3-SYDS >3 = %DEC BALI WHICH? 2 

INPUT - YR AGO* ( 1965) » MONTH ACQ < i 1 j.2)v LIRE YRS.v SALVAGE UAI. U 

INITIAL COSfy PRE: : ;, YR.v PRES,. MONTH '■> :! 976»9»7?i 50* 15000? 1 977*8 

ACCUMULATED DEPRECIATION AS 0! S -' !9?7 :=: $ t^w, 7^; 

u n d E p r e c; j: a t 1 ■: d b a l a n c e i... e f r -= $ 1 1. 507, 2 

A NO I HER HEM (Y or N) iJ Y 

WAN?' YOUR OLD DATA ? Y 

IN PUT ••■ DEP ■> ( 1 j-Jni'j, OR >3)y 700? YEAR? % MONTH* T 3* 1. 9 77? 8 

ACCUMULATED DEPRECIATION AS OF 8 / .1.9 77 =•• $ 3960 
UNDEPRECIATED B A l„ AN CE LEFT :=: $ J. 1040 

ANOTHER ITEM (Y or N) ? N 
OK 
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APPEND I X C 



FAVORITE PROGRAM 



CONVERSIONS 



This appendix contains the listings of several of our earlier programs 
for which we have had repeated requests. As these programs originally 
appeared in our Volumes I and II they were not fully compatible with the 
Basics being used with some of the micro-computers. We decided to 
include these programs here as we feel they may be of interest to the 
homeowner. The versions included here are identical to the previous 
listings with the exception of certain statements that have been 
modified so as to allow them to be run, as is, in most of the Basics 
that are currently available. It may still be necessary to make minor 
modifications before these programs will execute in your system but 
without writing them specifically for one machine it is impossible to 
completely avoid this problem. For purposes of modification appendix B 
at the end of Volume V should be helpful. 



The programs included here are: 

INSTALLMENT - Requires 3K of memory 
INTEREST - Requires 5K of memory 

MORTGAGE - Requires 4K of memory 

REGRESSION - Requires 13K of memory 
TEACH ME - Requires 8K of memory 
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IN3TLMNT 



;*"if SCXEN" 



:i[;:c:;;;ii--iiir :ii.. "p:?*" q 

XO FSESEEiAROHl 



120 REM 

.1.30 REM 

140 REM DESCRIPTION CALCULATE E» THEi: MONTHLY PAYMENT SCHEDULE: 

150 ri=;m FOR AN INSTALLMENT LOAN, 

160 REM 

170 REM - 

180 REM 

1 90 REM INSTRUCTIONS DATA FOR A SAMPLE PROBLEM IS STARTING IN 

195 REM LINE 1090, 

?()0 rem to use: type "run" ♦ 

2:1.0 rem enter data for your .installment loans 

220 rem beginning in line 1090 and "run", 

2:30 ri;;:m 

235 REM 

2*10 REM 

250 REM 

30 V*~ "##*##,«" 

310 de:edbl a-d 

320 DEFOE!... P 

330 DETDBL J3--T 

425 REM CALCULATES PAYMENTS FOR AN INSTALLMENT LOAN 

429 REM MONTHS OF' THE: YEAR 

430 DIM C$(12) 
432 FUR :i>0. TO 12 
435 RF AD C*(I> 
437 NEXT I 

440 READ G* 

445 IF G*-:" FINISH" THEN 9999 

450 READ G:LI>vG2* 

455 RE: AD B >• B 1 v y A v I :> R * R 1 ? M 

460 LET C3==€ 

465 LET C8""-.l. 

469 YiEH CHECKS FOR FEE: RATTIER THAN RATE 

470 IF E<1 THEN 485 



475 I...E I A5^E 

480 GOTO 495 

485 LET A5"-(A-Ki:)»cR>KM/:l.2 

439 RE:M MONTHLY PAYMENT 

490 LET T :::: (I+A">A5)7M 

495 IF T* .1.00 --INT (T»c:l.0 0) THEN 525 

50 LET T="INT < T:*:l. 0*1 ) /1 

505 IE R<1 THEN 520 

510 LET A:l."-R 

515 GOTO 525 

519 REM TOTAL PAYMENTS 

520 LET A:I^T*:M-A-I 

525 IF Al>KlOO""INT<Al>i<lOO> THEN 535 

530 LET A2""IN'TT ( A1>k< T/< ATID ) ):*:! ()•*■♦ 5 )/'.1 00 

535 lilt I>=A1 

540 le:t E>I 

545 PRINT 

550 PRINT 

555 PRINT TAB ( 15 > 5 "INSTALLMENT LOAN LEDGER" 

560 PRINT TAEi ( .1.5 ) J " " 

565 PRINT 
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INSnj'iNi ■- 2 •- 

II....H C C C O IR * V FS iX G ll-ll T :t. "3* y 

'"»"' © c :::n::: he: jni "t :::ii: ii :::: " :::ii::: g ir ie::: 3 11;::;:: iA r: o m 

570 PRINT GH> 

575 PRINT Gl* 

580 PRINT G2* 

585 print 

590 print "amount 01™ loan" » 

595 print tab (33) > i prin rjsing v$ja? 

60 PRINT 

605 PRINT "INTEREST " J 

610 PRINT" TAB < 33) J IF'RINT USING V*JA:I.J 

615 PRINT 

620 PRINT "INSURANCE"? 

625 PRINT TAB ( 33 ) J % PRINTUSING \>% i I 1 

630 PRINT 

635 PRINT TAB < 33 ) 1 " " 

63S LET 17-A-f-Al v-I 

640 PRINT "PACE AMOUNT OF THE NOTE"? 

642 PRINT TAB ( 33 ) i I PRINTUSING K)% ; 17! 

645 PRINT 

646 PRTN i" 

647 PRINT 

650 IF R<1 THEN 665 

655 PRINT' " FINANCING; FEE " i R 

660 GOTO 670 

665 PRINT' "ADD ON INTEREST RATE " tR 

670 PRINT "EFFECTIVE RATE " ?R1 

675 PRINT "DATE OF LOAN IS " 5 C;l>(B ) > " " } B.I. i " r " $ CM90 

680 PRINT "MONTHS TO MATURITY "?M 

685 PRINT " MONTHLY F'AV'MENT $ * i 

690 PRINT TAB ( 21 ) i X PRINTUSING U* i T J 

695 PRINT 

70 PRINT 
705 PRINT' 

71 PRINT TAB < ) i " DATE " J TAB ( 7 > ? " DATE " J TAB < I-''* > J " BALANCE " ? TAB ( 23 ) } " PAYOFF 

" 5 

715 PRINT' TAB < 32 > % " TRREG " % TAB < 40 > i " NEW OR " ? TAB ( 48 > J " UNEARN REMAINING " ■> 

72. PRINT TAB (66)}" EARNED " 

725 PRINT TAB < ) ? " DUE. " } TAB ( 7 ) S " PAID " J TAB (14)?" REMAIN " * TAB < 23 ) 5 " BALANCE " 

73 PRINT TAB < 32 ) J " PAYMENT " t TAB ( 4 ) i " SHORT " t TAB ( 48 ) > " INSURE " J 
735 PRINT TAB ( 56 ) J " INTEREST " ■> T AB ( 65 ) J " INTEREST " 

74 F :, RINT TAB < ) i " " J TAB < 7 ) J " " .5 TAB < 1 4 > » " " i TAB ( 23 ) 

745 print' " " j tab < 32 ) j " " j tab ( 40 > ? " " j tab ( 18 ) j " • 

750 f : 'rint tab ( 57 ) 5 " - " } tab ( 66 ) 5 " - " 

755 i...i;;:t z««b+i 

760 I...ET B5^A1+A-M 

765 LET Cl~12-B 

770 LET OC+190 

775 PRINT TAB ( ) i C 

780 PF<.INT 

785 l ::, RINT TAB < ) J G* ( B ) J TAB (7)5" NONE * ? 

790 PRINT TAI3 ( 13 ) i I PRINTUSING U$ i B5 5 

8 PRINT TAB < 22 ) J t PFIINTUSING V* J A 5 

810 PRINT TAB (45) J J PRINTUSING \>**Ei 

820 PRINT TAB (51) 5 J PRINTUSING V*JD» 

825 PRINT 
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IN8TLMNT - 3 - 

H...H o c n:: o ii ::;> "•«"' fc ::ii:: g \\ -o ~r ::ii.. "?" ::; ;; '" q 
iK™s •"n" S3 o :i: iee: in! "t :n: f ::ii: o fs if;;: : £» e;;:: Ai r: o if -o 

829 REM CALCULATION AND PRINTING MONTHLY TABL-EE 

830 FOR J-=:l. TO M 

835 LET l ::, »" ( ( M--J-KI. ) / ( ( ( M Kl. ) /2 ) :*M ) ) :*A1 

i;;h o let p=-int •: p* :i. o o + <. 5 ) /:i. o o 

53-15 LET S(CB>=="9<Ce)+P 

850 LET F-~ ( ( M-..R1 > / < ( < M-Kl. > 72 > *M > ) wl 

(355 u;;:t f^int < fki o o •♦• * 5 >/i o o 

860 IF J<M THEN 875 

365 LET P~=D 

870 LET' F : '™l»: 

875 LET A™A~-<T-~P- -F) 

88 LET A--TNT < A* 1 ■♦ ♦ 5 ) 71 

88-1 rem final.. payment 

885 LET' BJ.--I35 

890 LET h3S~INT < ( B5-T > *1 00+ . 5 > 71 

895 IF' 0<M THEN 905 

90 LET I35™A™0 

905 LET D»INT< <D--P>*100 + »5)/100 

9i o i...e r e:»int < ( e-f m o o+ ♦ 5 > /i o o 

9 1 5 PRINT TAB (1)5 Dl> < Z ) 1 

917 IF' B5<0 THEN B5-0 ! 

920 PRIN I' TAB (1 3 ) J J PRINTUSING O* ? B5 J 

925 IF A<0 THEN A=-0 ! 

93 PRINT' TAB (2.2.) i I PRINTUSING Of J A s- 

9'M) PRINT TAB < 45) J % PRINTUSING OtJE? 

950 PRINT TAB ( 5^ )? J PRINTUSING 0*50? 

960 PRINT TAB < 63 ) 5 J PRINTUSING Of ? P ? 

965 PRINT 

969 REM CHECK FOR END OF' CALENDAR YEAR 

970 IF J-M THEN 1030 
975 LET Z--2+1 

9(30 IFJ<C1 THEN 1030 

985 IF' J>C1 THEN 995 

990 GOTO 10 00 

995 IF Z<13 THEN 1030 

100 LET Z™1 

10 05 LET OC+1 

1010 LET 03-08+ 1 

1015 PRINT 

1020 PRINT TAB(l) ?C 

1025 PRINT 

1030 NEXT J 

1035 PRINT 

10 TO IF R<1 THEN 1055 

10T5 PRINT "FINAL MONTHLY PAYMENT IS *"J 

1 5 PRINT TAB < 27 ) J J PRINTUSING Of } B 1 J 

1055 PRINT" 

1060 FOR J™ I TO 08 

1065 PRINT 

1070 PRINT-TOTAL INTEREST PAID IN " > (C3+1900+J-1 ) J " IS "J 

1 075 PRINT TAB ( "'{2 ) ; J PRIN TUSING V* * S ( J ) » 

II. 080 PRINT " Z" 

1032 NEXT J 

1 08** DAT A JAN » FEE: „ MAR r APR ? MAY i> .JUNE » JULY 

1 085 DATA AUG * SEPT » OCT t NOV » DEIC 
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INSTLMNT 



-'{ 



H...JI c o c ii::::n f- ■ v ir ::ii: c;;;; ii-ii x ::ii.. * 
es y ss ii:::::: :::ii::: 11;;;;:: y-i t • :::n: if~ :::ii: c if;;;: ie: s k 



ii ;|, :7"E:l! 

zafsofii 



1 9 DAT A " JAMES JONES " y " :l. CACTUS AVE , " f " PHOENIX » ARIZ . " 

:l. 1 DA TA 7 » :l. * 72 v 25 » 3 1 * 9 1 t . 6 > ♦ I. .1. » 1. 2 

9990 DATA "FINISH" 

999:1. PRINT" " 

9995 GOTO <H0 

9999 END 
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RUN" I NST'Ln I 



NST Al. .1. hi. N i LOAN i 



:.w i i;:i.gs;;r 



JAMES .JON I:: 8 
;i.OO CACTUS AVE, 
PHI.) EN 'I X< ART 7, 

AMOUNT "T I CAM 
IN I ERT. ST 
INSURANCE 

FACE AMOUNT OP THE NOTE 



2 H , O ' 



ADD ON INTEREST RATE .06 

liFEECTIVH RATE » H 

DATE OH LOAN IS JULY 1 ? 19/2 

MONTHS TO MATURITY 12 

H (J N i I -I I.. . Y P A Y H E N I f> 223,66 



U A i 
DUE 



DA!Y : 
PAID 



BAI AN OF' PAYOPE IRREG NEW OR UN EARN REMAINING EARNED 
E E M A I N B A L A N C E P A Y H £ N T S 1 1 f J R T 1 N S U R E I f 1 1 E R t S I I N T E R E S ' 



:i. v / 2 

JULY 
AUG 
SERF 
OCT 
NOV 
DEC 



NONE 



2683 


, 92 


2500 * 00 


2460 

2236 


v ..". J . U> 


2304,64 

2106*92 


2 1 2 


, .■■ 4 
,28 


,1 '/'Jo •:■ o*t 

1 704.40 


1565 


, 6 2 


1499,60 



3 1. < 


. 9 1 


152,01 




27 < 


;■ 00 


128,62 


23,39 


9 ^:> , 


• 50 


1 7 ♦ 1 8 


21,44 


1 8 , 


, 4 1 


8 7,69 


19,49 


1 4 , 


:■ /' ,f> 


70,15 


17,54 


1 1 


> 4 6 


54,56 


15,59 



1973 



JAN 


FEB 


MAR 


APR 


MAY 


JUNE 


JULY 



1341 ,96 
1,118,30 
994,64 
670,98 
447,32 
223,66 
, 



.1292,44 
1082 .92 
871 ,05 
656,83 
440,25 
221,31 
<■ 00 



8,60 


40.92 


1 3 , 6 4 


6.15 


29,23 


11,69 


4 , 1 


19.49 


9,74 


2,46 


11 .69 


7 . 8 


1.23 


5,84 


5,85 


. 4 1 


1,94 


3,90 


, 


0,00 


1,94 



TOTAL INTEREST PAID IN 1972 IS 
TOTAL INTEREST PAID IN :I973 IS 
OK 



97 
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INTEREST 



c h::::ii f- • v ir :::ii::: g \h\ ir ::ii.. "p ':p" q 



sy scient: 



ll"< II::::.. :i::::i. II::::.. H-- : li II""" 



:i. o 

12 
14 
15 
16 
18 
20 

2<f> 

30 
60 
70 
75 
•'■130 
'WO 
450 
-455 
460 
-470 
480 
'(90 
50 
5:1.0 
520 
530 
540 
550 
560 
570 
575 
580 
585 
590 
60 
605 
610 
620 
630 
640 
650 
660 
663 
666 
670 
680 
683 
686 
690 
70 
7.10 
720 
730 



REM INTEREST 
REM 

REM DESCRIPTION COMPUTES AND PRINTS THE.' ACCRUED INTEREST 

REM ON INSTALLMENT LOANS* 

REM 

REM INSTRUCTIONS DATA B'EGINS IN LINE 1000 AND CONSISTS OF 

REM UNEARNED INTEREST BY MONTH GE MATURITY* 

REM 

RE M >k x< >x»: :*c x< >k ;k :* x< >k >k >k x< >x ;k >k x< >k *: :* * >k ;k :=k >k m xc :«>i<>x;K»;)!<>K»::!};)!<>K;K»;)5<>K;K»;K>K:*:>KiK>i;;K:>};»c>K;K:* 

XOKXOK 

REM 

DIM Dl> ( 55 )?0( 1 > ;» Q$ < 55 ) 

(SOTO 4' ; H) 

PRINT USING XH>?N9? 

N0--N9 

RETURN 

FOR I--.1. TO 12 

READ C$(I) 

NEXT I 

PRINT "NHAT IS THE CURRENT MONTH AND YEAR CENT. 12vi972"i 

INPUT AvAl 

IE Al>99 THEN 500 

LET A I-; ATM 9 

PRINT 

LET N™12---A+:l. 

LET Z»A 

PRINT TAB<12> S "EARNED INTEREST - INSTALLMENT LOANS" 

PRINT TAP ( 12 ) % " " 

i ::, RINT " MONTH OF " J TAEi < 20 ) J " EARNED " * TAB < 40 > S " REMAINING UNEARNED 
PRINT " MAT URIT'Y " i TAB ( 20 ) ? " INTEREST " % TAB ( 40 ) J " INTEREST " 

PRI:MT " " % TAE: ( 20 ) % " " % 'TAB ( 4 ) i " 

PRINT 

i :: 'RINT Al 

REM xooijk MAXIMUM MATURITY 4 YEARS JKWJKSCJfoxjfoKWHoojxoKJK 

l :: 'OR J»"-:l. TO N+48 

READ P 

RETi FORMULA FOR SUM OF MONTHS DIGITS tfaoooKaacK 

LET S--INT ( F'>:< ( 27 ( ,W. ) ) :*:;|. *• ♦ 5 ) 71 

LET T==T +J3 

LET F«™P--S 

LET' Rl^Rl-f-R 

E'RINT " " JC$(Z>n'AB(18> J 

N9^S 

GOSUE: 70 

S^NO 

PRINT TAB<«HJ> i 

N9---R 

GOSUB 70 

R-N0 

PRINT 

I...ET Z^Z-KI. 

:o :: ' j™72+n the:n soo 
ie j<n then 80 
if j>n then 750 



xosoosxoiok 



J" 
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INTEREST 



H....H ii:::: o c o n ;::: " "v" ir :ii: o ii- -ii "if ::il s h :;; ;; " e 
e-s '"ii"' s=s o :::n::: ii::::: m ii ' ::n: if™' :ii: «:.:::: Ft n::::: s ii;;:::: iAi if* h::::: 



740 GOT!) 76 

750 IF Z<:l.3 THEN 80 



760 LET Z-.1. 

770 LET A1^A1-M 

7S0 PRINT 

785 IF J^Nf48 THEN 80 

790 FRINI Al 

80 NEXT J 

81 PRINT TAB < 20 > 5 " " ? TAB ( 42 ) i " " 

82 PRINT " TOTALS " ? TAB ( ;L > ? 

830 N9~T 

833 GOSUB 70 

836 7-NO 

3' ; I0 PRINT TAB (40) » 

850 N9-R1. 

35::! GOSUB 7 

856 F?1~N0 

860 PRINT 

870 DATA JANUARY v FEBRUARY * MARCH * APRIL ■> MAY * JUNE * JUI..Y * AUGUST 

880 data September * oct gber * November * December 

890 REM 

90 REM ENTER TOTAL UNEARNED INTEREST IN DATA STARTING AT' LINE 10 

910 REM FOR EACH MONTH OF MATURITY IN CHRONOLOGICAL ORDER. 

1 DATA 30 , 50 * 93 ♦ 35 * 150 . 55 * 27 * 66 * 27 ♦ 77 * 56 . 29 

1010 DATA 2.65* 193. 42* 362.4 * 609. 55 * 832. 39 s- 936. 14 

1 020 DATA 654 . 66 * 1 146 . 61 * 1521 . 3 s 1226 . 52 * 2083 . 75 * 2455 . 6 

1. 030 DATA 1350 . 4 * 1597 . 1 1 * 2537 . 63 * 2362 . 95 * 5755 . 1 * 5203 . 83 

1 040 DATA 4856 ., 7 * 5819 . 73 * 2490 . 34 * 3283 . 03 * 4317 . 39 * 1927 <• 29 

1 050 DATA 1867 . 03 * 2090 ♦ 9:1. * 3912 . 03 * 7773 . 25 * 54 14 . 98 * 1 1 023 . 33 

1 060 DATA 4660 .. 57 * 7371 •> 53 * 2572 . 17 * 3190 . 66 * 3712 . 73 * 927 . 05 

1070 DATA 0*0*790.34*360*33*0*344.86 

1080 DATA 0* 0*393 .64* 0* 0*426.69 

1 9 DATA * 27 1 <■ 43 * * * * 

1 1 END 
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:■■; V'i.1 



n N i R U F 
MAI (!R.I i V 



CURRENT M0N1H AND YEAEU;- 

I!. ARM- H I NT K REST - INS) A I. 

FAENEn 
INT ERRS I 



,0, .l.2v J 972? 8 

..MEN'! LOANS 

REMAINING UNEARNED 
IN TERES I 



AUGUST 

SEETEflRlvE 

OCTOBER 

NOVi-MBEE 

DECEMBER 

I 970 

JANUARY 

FEBRUARY 

MARCH 

APRIL 

MAY 

JUNE 

JULY 

AUGUST 

SEPTEMBER 

OCTOBER 

NO MEMBER 

DECEMBER 



tiuu .-. ;"r(.i 

65,57 

75,28 

108*26 



1 6 


.08 





• 6 6 


.i'.j "j 


• V 


"i ' * 


,48 


1 1 


^ Ct O 


138 


• 73 


1.44 


. '»*' 


93 


52 


:l 52 


■ 8 8 


.190 


1 6 


144 


3 


231 


4 7 



1.62, 4( 
.1. 8 . 5 ; 



4 * 2 3. 

1.99 

150*44 

289,92 

498*72 

693*66 

792*12 

561*14 

993*73 

1331 *14 

1082*22 

1851778 



i.y/7 

JANUARY 

FEBRUARY 

MARCH 

APRIL 

MAY 

JUNE 

JULY 

AUGUST 

SEPTEMBER 

OCTOBER 

NOVEMBER 
DECEMBER 



200 *4W 
135*04 
.152*11 
2 30*6 9 
205*47 
479*59 
4 1 6 * 3 1 
373*59 
431*09 
177*92 
226*42 



2 1 9 7 * 1 2 
1215*36 
1445*00 
2 3 06*9 4 
2157,48 
5275*51 
4787*52 
4483*11 
5388*64 
2312*92 
3056*61 
4496*23 
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1.98° 

JAN! 
r i" v ■ r 


)ARY 


! 1" br 
MARC 


' Ui-pK 1 

:;h 

1 ! 


MAY 

JUNJ 

JULO 


)' 


AUO! 


JS : 


see 


H-JMHfcR 


fii" ( OBEE 


OOUI 


;:hber 


ni:.(;i 


::lHi-:K : l\' 


.1 V '•::' 


:i 


JAN! 


JAEY 


Fi::.BP 


3IJARY 


MARi 


CH 


APR 


1 L. 


MAY 




JUNI 




JUL 

A 1 IRI 


Y 


l"IUIJl 

BEE 


r EMBER 


OCTOBER 


NOUi 


EMBER 


ULiCl 


EMBER 



$ I. 



:|; 444, i 9 

'■]■■ 300,03 



! /A ,, ''(') 



4 5-!' 

(.. i ' 

, 
34,36 
1.5,34 

t ■'•'() 
34 , 40 

-■■ 

, 

, 00 
0, 00 



U:KJ9 * 9 
.1 / 00,39 
1934, 19 
36 81 ,91 
/39 V ., Od 
31 1 4, 15 
0432,20 

6 J 93,50 
2 44 3,56 

O K) -.."> 'C< v V? a"? 






/'53,98 
3 -4 5 , 4 

O .-. 

! ,36 

\ ) ,. ., 'i ( ) 

» 

:'. ,^ 4 ; . OB 

-. i ) < ) 

t"'t . \'\ n 



TOTALS 
OK 



KV-'O » ! O 



T I 0390<:; , UO 
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mortgage: ■•- ;|. - 

i i--i | c c c:::: n:::n f u • v ir ::ii: hz;; ii-ii nr ::ii.. •<:;;;'• :;;; ;| " :ei: 
o "v s c :ii: be: m "i" ::ii: if™ ::ii: o ir eh: s=* ie: iA Ft c::: u- -h 

120 REM 

130 rem description this basic program computes and prints 

*40 Rem mortgage schedules for various mortgage- 
ISO REM TERMS ♦ 
160 REM 

170 REM INSTRUCTIONS ALL DATA IS ENTERED AS INPUT DURING RUN, 

180 REM 

190 i*EM:*>K>oi:*;)K>x:o;;K;o<:«>ioK;<<:*^ 

20 REM 

210 DIM Z<10> yR(10) s-YU > 

220 DIM P<15) 

30 V*» "##**##*,##" 

310 X*= "**##**##♦»#" 

-40 DEFDBI... A-Ei." 

410 DEFDBI... O-Z 

450 Z*- "##,*##*" 

520 REM 

530 PRINT "AMOUNTS TO BE CONSIDERED"? 

535 Z0-1 

540 INPUT Z<Z0) 

542 IF Z(Z0 )=:-() THEN 560 

5^4 ZO-ZO+l 

546 GOTO 540 

560 l :: 'RINT "RATES TO BE CONSIDERED"? 

561 Z0-Z0--I 
565 FJ0-1 

570 INPUT R<R0) 

572 IF R(R0 )==-() THEN 590 

574 RO^ROM 

576 GOTO 570 

590 PRINT "YEARS TO BE CONSIDERED" J 

591 R0--R0--1 
595 YO-i 

60 INPUT Y(Y0> 

602 IF Y<Y0)-0 "THEN 620 

604 YO^YO+1 

606 GOTO 60 

620 PRINT 

621 Y0--Y0 1 

630 PRINT 

640 i ::, rint 

650 PRINT 

660 PRINT 

670 FOR J:l.«:l. TO Z0 

680 LET A «: Z'LJl) 

690 PRINT 

70 PRINT "FOR A LOAN OF "J 

710 PRINTUSING X*JAJ 

720 F :, RIN)' 

730 PRINT 

740 PRINT 

750 F : 'RINT " NUMBER DECREASE INCREASE" 

760 PRINT " INTEREST OF MONTHLY TOTAL MONTHLY TOTAL" 

770 F : 'R.INT " RATE YEARS PAYMENT INTEREST PAYMENT INTEREST" 

780 FOR J9 == II. TO R0 

1268 



•EiAil 
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MORTGAGE 2 -« 

n.„ ii h:.;: H.::: c o f* y ir ::ii: g hi ir 
ies '"ii"' s n::::: :n::: be: i\i ir :ii:; n :::: " :n: c r: he:: : 

790 PRIN1 

80 LET R3 ■■■■■■■ R( 09) 7120 

810 LEI M2 ■■■■■■ 

820 EOR 03 -» :l. TO Yd 

830 LET M =■- (Ax<R3) / ( :l. - ( 1/ < ;L*-R3) -t < 12>kY< J3) ) ) > 

£W0 L..ET I':l. :::: M>k:I.2>kY(J3> -A 

850 E'EINTUSING Z*>R<J9;'J 

860 PRINT "%"? 

370 PRXNTUSING U'*4 Y < 03 > ? 

880 PRXNTUSING V*JMJ 

890 PRXNTUSING U*?I:IT 

90 IF H2 » THEN 930 

91 PRXNTUSING V* » M :l. --M ? 
920 PEINTUSING V* J 11. -12? 
930 LET HI »== H 

9 '10 L..ET 12 ~~ II 

950 LET M2 » 1 

960 PRINT 

970 NEXT J3 

980 PRINT 

990 NEXT J9 

100 PRINT 

1010 NEXT Jl 

1020 PRINT "DO YOU WISH TO CONSIDER ANOTHER SET OF TERMS"? 

1030 INPUT Z* 

:UH0 IF Z* >■*■■ "Y" THEN 530 

1050 END 
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K*l IN fl hOR7 GAGE H vl 

r;MuUN)S 10 BE rONaiHEKED? 19500 

'? '5 00 00 

V ''■•■ ( ,;i ^i o () 
r i j 

r a ' 1 1 ■■. s i o h e c o n s ;i :o e k c; b ? 6,75 
... „, ^ .... .... 

r 9,25 

years 10 hi;;, CONSIDERED? 10 
? 25 

'!'" 3 ( ■' 



I- OR A 1 1 JAN OF * 



N TERES T 
RATE 



NUMBER 

(DF 
YEARS 



MONTHLY 
PAYMENT 



TOTAL 
NTEEE 



DECREASE 
MONTHLY 
H Y H f N L 



INCREASE 

TOTAL 

INTEREST 



6 * 7500% 
6,7500% 
6,7500% 
6 , 7500% 



.1.0*00 

20-00 
25,00 
30,00 



148,27 
134*73 
1.26*40 



",>n 



■■■ .) <■< ■■■ 
.1. .".085,70 
209.1.8*50 
2603.1 *70 



5*64 
3*54 



!:> / ! ;;> * .1. W 

4833*27 
5113*25 



7 * 7500% 


10*00 


•■>••)(. 


> * ' 


J .' X > 


7 » / 


1 *97 










7* 2500% 


20*00 


J5< 




2 


1 748 


y* /O 


7 4 < 


81. 


951.7* 


7 4 


7*2500% 


25*00 


.1 4( 


', ( 


^ -'"' 


72/8 


4*30 


1. 3 * 


.1 8 


5294* 


60 


7*2500% 


30 * 00 


13".: 


' v- l \ 


)2 


2838 


8*90 


7 , 


92 


5604* 


56 



7*7500% 
7*7500% 
7*7500% 
7*7500% 



1.0*00 
20 * 00 
25,00 
30 * 00 



234 ,02 
160,09 
147,29 
1. 3 9 , 7 



S5H7,91 
18920*80 
24687*10 
30792,40 



94 


10337- 


80 


80 
59 


5766- 
61.05- 


30 
3 7 



8,2 


500% 


10*00 


239*17 


9200 ,37 








8*; 


500% 


20* 00 


166*15 


20376*40 


73,02 


11176 


,00 


8 * : 


500% 


25*00 


153,75 


26624*10 


12*40 


6247 


,69 


8 , 2 


500% 


30 - 00 


146*50 


33238*70 


7*25 


6614 


* 6 «•' 



9*0000% 
9*0000% 
9 * 0000% 
9*0000% 



10*00 
20*00 
25*00 
30*00 



247*02 
175,45 
163*64 
156*90 



10142,50 
22607*50 
29593*30 
36984*70 



/ 1 * ■::, / 

11 ,80 

6 * 74 



.2465*00 
6985*77 
7391*48 
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F ■> i. HAN OF T 



:)<)<).. 



RA i ! : :' 
■'■■■ , 75<)0% 



WJflBi:: R 

OF 580100 



r I- MK 



I'i T r'i i :. !"•- 



w 



I I 1 



2 ,'j I ' ' '. : 

-•C , ("i \) 





DFC 


:rfaff 


JNf 


,RF 


a si:; 


! dtaf 


: V ;8N 


!7HL Y 


i 01 


AF 




NTFRfcOT 

■ a ;:' '■.!. •* ,, n s 
400 4B > 2 


PAT 

j. J 

i 


'HF.w. 
'0*84 


1 N 'I 
.1. 8 4C 

'? A 

/ 6 (i 


FR 
:<9 .-. 

> 1 j v 


e. S I 

50 
8 1 
54 



■l 



".if i . AO 



'•.,'U 



,■'0 4 , ,-.:.. 



! 9 , i 



4 A 4 7 ', 7 
8 i 4 5 ,55 



7 , "500. 



.'•'"'i , OO 



,■,(" * J * '■..■'•'>• 



uo ■■• ••■ ! ..' 



<s , -w ,5 ... O 



O •:■ .■;,' ■ .' \ ■■■ 



8 * 25oo; 

8,2500; 



1.0 < 00 

2(ouo 

'5,1*0 

20 , '!')i'' 






1.4:1 5'i .40 
5 .1 3 4 8, 50 
40960, .1. 
51:1 36.40 



14', S4 17! 93,90 
19,08 961:1 ,83 

.! j. * ;l 5 i 01 "7 6 ,30 



9 , o \) o o :; 
9 , oooo; 

9 , 000 (7. ; 
9 ,. 00 00" 



I , 

70 > 00 
'5 , 00 

30 . O r " : 



5 w <j * "J ,:> 
9 A 9.9 7 



15 


6 3 * i 


■3 




84 


780.: 


70 


1 1 * 1. ..! 


,-1 r.v 

'■r -.J 


528, 


10 


I. 8 , :l 6 


56 


8 ?9 f i 


:?>U 


1 , .5 7 



n .■• .a / ,, •'(: 



I- OR fi LOAN OF ■;!> S<}0 00 , 00 



NTFRE3 1 
RATI!: 



NUMBER 
OF 

Y'FORO 



HONT'HFY 
PAYMENT 



uefreaof i noreaof 

1 OTA: HUN FFH V 1 OTA! 

IN TREE 81 RAYMFNi IN It. REST 



6 , 7500% 
6*75 % 
6*7500% 
6*7500% 



:l 00 5 74* 17 18894 , 99 

7 0*00 3 8 , 1 8 4 :l. 7 4 4 * "I 

25*00 345*46 53637,10 

30,00 324* 30 86748 ■■ 00 



1*16 



■i n 5 o 'j . o o 

.13:1 1 0,90 



7 * 2500% 
7 *2500% 
7*2500% 
7*2500% 



1.0 > 00 

2 - 
■ > ■-; , o 

3 * 



5 8 ' ; ' ,01 
395*19 
361,40 
3 41 * 09 



P0440 , 90 
44845,40 
58421 * 30 
72792 * 00 



20*3: 



24404,50 
.1 3575*90 
1 4370*70 



, /o 007 
, / ■ : j o o % 

,7500% 
*7500% 



I , 
1 * 
.? 5 * 
)0 



.:') '. 



600 * Oc) 
41.0*48 
3 7 7 * 6 7 
358*21 



2 2007*4 
48514*70 
63300,20 
78954*90 



.89,5 8 
32*81 
19*46 



26507 , 30 
14785*40 
15654*80 
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1 v 

•^ ' '■ .■ ' ) 
'.'''■ , ... ()1J 

30,00 



V?M . :.',' 



2 8590 v 

5974 7, 

,:., a ■■;! ,-:', ,,, 


•"0 
JO 

BO 



87,23 28656,40 
31 ,8.1. I 60:1.9*70 
10,59 16960,60 



9 , oooo'; 

9 , (') (i n ( t ': 
9 ., nOnr- 



.1 •) 



i'> .. !)i! 



3,U 89 26006. 40 
.-■I c> c> 



■J -' ?' O : 

" ;.' *■:: r\ o . 



18952,50 



FOR A !.. OAO (jl" :i; |. 00000 , 00 



N U f 1 h :■: R I.i E (.; H !:■ A 8 E I N C R E A 8 E 

CH7E.R!!i : . r OF MHN7HL.Y TOTAL MONTHLY IOTA! 

E T E Y E A E S P A Y M E M I 1 N T E E E 8 T P A Y n E N 1 I N T E R E S "i 



6,7500% 
6,7500% 
6, 75005. 
6, 7500% 



:!. , 

>:! -. 00 

:-<:o .. oo 



148,23 87789,v() 

7 6 , 8 7 8 2 4 8 B - 2 3 8 ">' , 8 8 4 4698,3 

690,91. 107274,00 69,45 24786,00 

643,60 133496,00 42,3:1 26221,80 



7 , 2500% 
7, 2500% 
7,2500% 
7,2500% 



1 , 

2 , O 
25,00 
30,0 O 



174,02 4088 1,°0 
790,39 89690-80 
722,8] 116843,00 
682 . 18 145584,00 



383,64 48808,90 
67,5 7 27151,80 
40 ,63 28741 , 30 



7,7500% 
7,7500% 
7 , 7| : 50(»% 
7 , 7500% 



I '■ ) •> 
20 ,00 
25,00 
70 v 00 



440 14,90 
9 7 2 9 , !"i 
128600,00 
'■'16,42 157910,00 



8 2 , 

7 ('.. i.r 



65,62 29570,00 
38,9 2 3 1 309,60 



8,2500% 
8,2500% 
8,2500% 
8, 2500% 



"I , 
2 o ,. 1 ) 



226,51 47J. 8 J ,40 
852, 06 104494,00 
7 88,45 136534,00 
751,26 .170455*00 



374,45 57312,90 
63,61 32039,40 
87,18 33921,10 



9 , 0000% 

9 , 00 0% 
9 , () O () 6 % 

9,0000% 



1 ■> 1 

20 « Oo 
25 ,00 

8 , 



>.?7 5201.2,80 

899,70 |. j.5936,00 

839,20 151760,00 

804,63 1.89665,00 



> 6 7 , 4 6 3928*00 
60,53 35824,50 

34,58 37905,00 



DO YOU WISH (0 OONOIOEE ANOTHER 8 El OF TERMS? N 
OR 
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REGEEBSN 






25 PRINT 

26 PRINT 

27 PRINT 

28 PRINT 

1 DATA <• 43 y « 55 •/ <■ 55 y <■ 55 v * 54 v * 52 y * 62 y <• 6 y « 5 y « 55 y ♦ 52 y « 53 y « 4 

101 DATA ,46 s- ,57. ,59 y ., 49 y ,45 s- »48y *47y « 46 y *6:l.y ,59 k ,6* ,57 

102 DATA ,64 c ,62 y ,54 y ,66 s-, 6-1 

2 DAT A 75 » 66 » 67 v 7 y 64 y 65 y 67 y 63 y 7 y 65 v 73 v 73 y 38 

20 1 DATA 75 y 90 » 77 y 72 >• 70 » 63 r 66 y 67 y 57 >• 55 y 51 y 53 y 58 » 51 y 51 y 54 y 54 

3 DATA 9 ♦ 4 y 7 <■ 3 y 8 , 1 y 8 , 3 y 3 * 6 y 3 y 8 , 3 v 8 , 7 y 8 , 7 y 3 , 9 v 8 , 8 v 8 •/ 3 

30 1 DATA 8 .7*8.6*8.7* & . 1 y 8 . 5 * 8 , 6 y 8 . 3 * 8 , 9 * 3 , 9 y 3 . 6 y 3 , 7 y 3 , 4 y 1 . 2 y 3 . 4 

302 DATA 3,3y7.3*3.5 

40 DATA 2 ♦ 04 * 1 , 36 y 1 ♦ 36 y 1 , 36 y 1 , 36 * 1 , 36 * 1 ♦ 36 * 1 , 36 y 1 , 59 y 1 , 59 1 1 ♦ 59 * 1 , 59 

y 1 , 59 

4 1 DATA 1 , 59 y 1 , 1 3 y 1 ♦ 1 3 y 1 , 59 * 1 ♦ 59 v 1 , 59 * 1 . 59 » 1 , 59 y 1 , 2 

402 DATA 1 , 2 y J. , 2 y 1 ♦ 1 3 * 1 , 1 3 * .1. ♦ 1 3 y 1 , 36 y 1 , :l. 3 * 1 , 1 3 

70 READ El 

701 IE El » 1E+38 THEN 110.1. 

702 RESTORE 

703 PRINT "DO YOU WANT INSTRUCTIONS CONMOy 1-YES) , . ♦ . WHICH "i 

704 INPUT GO 

705 IF O0 = THEN 709 

707 PRINT " N~# VALUES m R™# IN VARIABLES y £>«* OUT VARIABLES* D IS A CO 

di;;: " 

708 print" value (ie: 1 ™ transforms have been specified y ™ otherwi 

si;;: , > " 

709 PRINT " N* Ry S» D - " » 

710 INPUT PlyRlyNlyD 

7 1 1 DIM Y < S y 1 ) y Z ( 8 y 1 ) y S ( 8 * 8 ) y T ( 8 y 3 ) y W < 7 * 7 ) * H ( 8 * 8 ) 

7 1 2 DIM 15 ( 7 y 2 ) * F ( 3 y 2 ) y E < 3 y 8 ) 

713 LETN^Nl-1 

714 LETR-R1 •••:!. 

715 letp-pi~i 

716 IFD-1THEN 721 

717 LETN-E 

7 1 3 FORI- 1 TON+ 1 J F0R09- 1 TOP*- 1 J EE:ADZ ( I y 39 ) t NEXT J9 1 NEXTI 

719 GOSUB 818 

720 GOTO 732 

721 FORI- 1 TOE +1 i F0E09-1 TOP-U t READY ( I v 39 ) t NEXT 39 : NEXTI 

722 GOSUB 8:1.8 

723 FOEK-1TOP-M 

724 FORI...- 1 TORI 

725 LE'TVCD-Ya.yK) 

726 NEXTI... 

727 GOSUB 1000 
723 FORI...- 1 TON 1 

729 LETZ CI... y K> -X < I... ) 

730 NEXTI... 

731 NEXTK 

732 FOEI-1 703 J F0R09- 1 TOP+1 X Y ( 1 1 39 ) - t NEXT 39 : NEXTI 
7:33 LETP2-1/P1 

734 FORI- 1 TON+ 1 J F0R09- 1 TON*- 1 J S ( I y 39 ) ■■■■■■■ t T ( 1 , 39 > - I NEXT09 : NEXTI 

735 FORI- 1 TON*- 1 J F ( I y 1 ) » i NEXTI 

736 FOEI-1 TON J F0E09- 1 TON i W ( I y 39 ) - I NEXT09 } NEXTI 

733 FORI-l TON X B < I y 1 ) -0 t NEXTI 

1273 



/ ,:iV 

741 

743 

745 
746 

7^19 

750 
751. 



EEGEESSN •••• 2 - 

«... ii c::;: c:::: n:::::: n::n ii :::> "h" if;:: ::ii: «:;;;; ii-ii n ' ::ii. ■•;;;:" ^ & 
es "ii" s c : :il ii::::;: it-.b ii .i: if - :ii: o Ft ii;:::: s ii::::: • a f; e t ifii 

l :: OEK^:I.TOP-KL 

eori^iton-m 

letf ( i v i ) -f >: x » i > m :; '2>!<x < I •.> « > 

EORd^lTOK :l. 

LET "53 ( :i: v < J ) --8 < I y d ) -l-Z < I v K > X<Z ( d v l< ) 

NFX'T J 

nexti 

NEXTK 
F0RI™.1.TC)N+:l. 

FOEd^lTON-Kl. 

i ei r ( 1 1- d > =-s ( i :> j > -p .i :«i : - < :r » :i. ) xf ( j v :i > 
nextj 

NEXTI 

FOEd^lTONM 

LETG ( J ) ™£J«R ( l :: '2*:T ( J y d ) ) 

NEXTd 

l :: OEM™ :l. TON t F 'OR 09^ .1 TON I 8 ( I v 09 ) =- I NEXTd9 1 NEXTI 

FORI- 1. TON 

FOEd^lTON 

i..£'rs(iy,i)=T(i+:i.jj{-:i.) 

NEXTJ J NEXTI 

REM k>k;o^ok;k:>k*:>xioc>k»:;o;x<^^^ 

GOSUE 1350 

E0l : O:^. TON i! EORd^ 1 TON 

LET B < 1 9 1 ) ~B < I y 1 ) +T ( :l. » J+ :i. ) *w < :i: , d ) 

NEXTJ 

nexti 

LETA^F ( 1 y 11. ) 
LETSZ^O 

lets8^o 

FOETTd. TON 

LETA^A-FKIy 1 >x|" (141 * 1) 
NEXTI 

FOEK^ITOF'-M 
LETY ( 1 y \< ) :™A 
F'OEd^lTON 

let y ( :i. v k :■ =-= y ( i v k ) +i:;: ( d y II. ) 5KZ < J+ :l. j K ) 
NEXTd 
778 LE TY ( 2 y K ) •-•= Y ( 1 •> K ) --Z < 1 » K ) 

779 i i;;:ty < a >■ k ) ==•= i o o »< y ( 2 y k > / y ( 1 > i< > 

780 LETSZ-SZ*Y(2yK> 

781 LET38^88f-Y(2yK)^2 

782 NEXTK 

783 I.J:ITW8™l :: '2>KSQR<P:l.»cS8---S7'h2) 

784 LL=:TW7«"P2»:S7 

785 PRINT 

786 PRINT" M U L T I V A R I A T E C U R V E I" I T" 

787 PRINT 
78(3 PRINT 

789 PRINT" VARIABLE" * "EEGE DOEEE" y 'MEAN VALUE" 9 "STD DEV" 

790 PRINT 

791 PRINT" 1 < CONSTANT -■ " i A? " > " y E < 1 , 1 ) y G ( 1 ) 

792 PRINT 

793 FGRI-rrON 

794 PRINTI+ 1 y B ( I y 1 ) y F ( T.+ 1 »1)»G( 1+ 1 ) 
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754 



/'v.i6 
757 
753 
759 
760 
761 
763 



765 
766 



/ 


67 


7 


68 


7 


69 


/ 


70 


y 


7.1. 


7 


'■"v.""> 


7 


73 


/ 


74 


"7 


75 


/ 


/ 6 



REGRESSN ■•■■ 3 -- 

H..J1 c c c o n :::: " "if ir :n: g ii-ii if ::il ";;;;" 'P" o 
E=is -ii" © h:.:. ;.ii:.; e; . y-Ji -~r :ii: F" :ii::: h::.:: r ee © he: .i<"-ii if*: o ii-ii 

795 NEXT! 

796 PRINT 

797 PRINT 

798 l :: 'RINT" STANDARD DEVIATION OF RESIDUALS :::: "JW8 

799 PRINT" INDEX OF DETERMINATION (R-SQ) ■■■■■■■■ " } 1 ■•■■< W37G ( 1 ) >t2 
80 PRINT" Zi;;;RO-CHECK ON MEAN RESIDUAL ™ "?W7 

801 PRINT 

302 PRINT 

303 PRINT" A C 7 U A I... V S C A L C U L A T E D" 

304 PRINT" 

805 l ;: 'RINT " ACTUAL.. " •> " CALCULATED " * "DIFFERENCE " » " F'CT DIFFER " 

806 PRINT 

307 F0RK^1T0F'+;|. 

8 8 PRIN'T'Z < 1 HO v Y ( 1 y K > r Y ( 2 y K ) r 

809 LE. : :Ta-«l)KSGN<Y<3»K) ):«INT ( ABS< 1 0*:Y<3 ,K> ) ) 

310 IFQ^OTHEN 815 

311 IF0K0THEN 813 

812 PRINT" "J 

813 F-RINTQ 

3 14 GOTO 316 

315 PRINT" .0" 
81.6 NEXTK 

317 STOP 

8.18 READE1 

319 IFE1^:I.E>3STHEN 324 

320 PRINT 

821 PRINT "WRONG AMOUNT OF DATA SPECIFIED? PLEASE CHECK," 

822 RESTORE 

323 GOTO 703 

324 RETURN 
825 STOP' 
PRINT " NO TRANSI" ORMS " 

1 1 RETURN 

1 1 1 PRINT 

.02 PRINT 

1108 PRINT" " 

. 4 DATA 1 E38 y » v » v >■ y 

1105 GOTO 9999 

1350 REM THE.SE FOUR SUES CALCULATE THE INVERSE MATRIX 

1351 FOR 1K-1 TO NSFOR 11...^ 1 TO N 

1352 W<IKyIL)s=S(I"K»IL) 

1353 NEXT .XL. J NEXT IK 

1354 NN™N t GOSUE: 20 : U8™U7 
555 IF' N<1 THEN 190 

1360 IF- M>3 THEN GOSUB 140 

(.363 IF N--1 THEN 1390 

1.364 IF N=3 TTEiN GOSUB 180 

1365 FOR II" 1 TO NJRIR XJ--.1. TO N 

1. 363 IF N==2 THEN 1372 

. 37 W ( XI i- X J ) =€ : : < IJ y II ) /US J GOTO 1 375 

1.372 W < .II r IJ ) =S (NM -I J f N'M-XI) 7U3 

.373 IF :n>IJ THEN 1375 

.374 w<:n:»ij)=--w<xi»ij) 

.375 NEXT US NEXT IIS RETURN 

.40 REM COFACTOR OF MATRIX N>3 

1275 



rf:geessn 



IE* "ir" si 



v ik:...iul : ;;ii 
iiftig 



liEiAil 



1410 
I-'} 11 

1.415 
1417 

1420 
1421 
1-425 
1430 
1440 
1441 
1442 
1444 
1450 
146 
1465 

1475 

1480 

1482 

1485 

180 

1810 

1815 

1820 

1.825 

1830 

1835 

1340 

1345 

1350 

1355 

1865 

1370 

1390 

190 

1999 

20 

2010 

2015 

2020 

2025 

2030 

2035 

2040 

2045 

2047 

2121 

2130 

2135 

2201 

2210 

2215 

2220 



NN-N--J 
SG-1 
FOR I.C-1 

FDR XE^l 
FOR lO-l 
IF IE--IC 
IF IG^ID 



TO NJFGR XD-1 TO N 



I U 
TO 



N 
N 



THEN 

THEN 



450 
450 



144< 



W<XkY)""S(IE!>IG) 

Y-Y+ltIF Y>NN THEN 

GOTO 1450 

Y-lSX-X+l 

NEXT IG2NEXT IE 

G08UB 20 

m<:i:c».td>=u7 

next id j next ic 

FOE IU--1 TO NJF'OR lY-l TO N 

E < IU r IY > -=H < IU y XY ) 

E < IU 9 IY ) -EL" < IU :> IY > *SG % SG--SG 

NEXT IYJNEXT IU I RETURN 

rem COFACTOE SECTION N<4 

W ( 1 v 1 ) "B < 2 y 2 ) XS < 3 y 3 ) -S < 2 y 3 ) xS ( 3 v 2 ) 

W < 2 y 1 ) ""8 ( 1 v 3 > WS ( 3 y 2 ) --S ( 1 y 2 ) *8 <3 y 3 ) 

W ( 3 9 1 ) ~S < 1 v 2 ) *S < 2 y 3 ) -S ( 1 y 3 > *S ( 2 v 2 ) 

W < 1 9 2 > ™£> ( 3 y 1 > *S ( 2 y 3 ) •3 ( 2 y 1 ) XS < 3 y 3 ) 

W ( 2 y 2 ) ~"S ( 1 v 1 ) >KS < 3 y 3 ) S < 1 v 3 ) *S ( 3 * 1 ) 

W < 3 y 2 ) ™£) < 2 y 1 > »S ( 1 y 3 ) --S ( 1 y 1 ) *8 <2 y 3 ) 

W < 1 y 3 ) ™S < 2 y 1 ) >KS < 3 y 2 ) -3 ( 3 y :l. > »S < 2 y 2 ) 

W < 2 y 3 ) »-£> ( 3 y 1 ) >KS ( 1 y 2 ) --S ( 1 y 1 ) *S < 3 y 2 ) 

W ( 3 y 3 ) «S < 1 y 1 ) *S < 2 y 2 ) -™S < 2 y 1 ) *S < 1 v 2 ) 

FOR IK-1 TO N2FOR IL-1 TO N 

E ( IK y XL > ™W < IK y II... ) 

NEXT II... $ NEXT IK J RETURN 

W< 1 y 1 )~:L/S< 1 y 1 ) J RETURN 

WdyD^URETURN 

rem determinate: of n dimension matrix 

NM=NN---:L 
IF NMOO 

for ji=:l 

TEX) 

FOR J2=J1 TO NN 

IF ABS(WuJ2y,Jl) XTE THEN 2121 

TE>ABS < W < 02 y dT )) 

IE-02 

:i:f n~2 then ib^ji 

NEXT 02 

IF' TEO0 THEN 2201 

U7-0SGOTO 2501 

II" J1«'IB THEN 2301 

FOR J2«J1 TO NN 

TE>W(J1 !<U2> 

W<J1 yJ2)^N(IByJ2) 

W ( IE: y 02 ) X'E 

NEXT 02 J SI— -SI 

1276 



THEN 2401 
TO NM 



REGRESSN 



ii ...H C c h:::::: ii::::h n :::: " v if;:: :::n: g ii -ii t :t. ";;;:" :;;;'"• n;; 
v s e :n: ee m "ii" :ii: f" ::ii:: c ii-;:: b::::i s> iie: a i 



23o:i. N:i.:-d:i.n 

2310 FOR J2«=N1 TO NN 

23 1 -4 TI=>W ( J2 v J 1 > /W ( J 1 r J 1 ) 

2317 FOR J3=N1 TO NN 

232 1 W ( J2 c J3 ) =-W ( J2 s- J3 ) - W ( J :l. v J3 ) x<TE 

2325 NEXT J3SNEXT J2 

2391 NEXT Ji 

2-401 U7=-l 

2 -4 10 FOR J 1 = 1 TO NN 

2-421 U7»U7>kW<J1 S ..J;|, > 

2-425 NEXT J:UU7«IJ7*SI 

2501 IF U7O0 "(HEN 2550 

2510 U7*=* 99999 

2550 RETURN 

9999 END 
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:o o y o u wan t :r n s t r u c: t :i: o n s ( o == n o > i ■■■■■■■■ y e s ) . . . , w h :i: c h ? i 

jMB.il: UAI UFSy R=# IN VARIABLES? S=# OUT UARIABI ESv D IS A COD 

U A I 1 1 F ( 1 IT I I ~ T R A N S F (1 R M 3 H A V f f B EL E N B P E C I F I E D » = i ) T H EL R W I S 



N i» R : 



(I 



30*4. 



M U 



A R 1. A I E 



U R V EL F-" 



VARIABLE" 
J. (CONSTANT 



A 



REGR COEET 



.! , 42546E- 03 



■4.03A; 



U.J 



ME: AN VALUE 



65,666/ 
8.24334 
1.37933 



SID DEO 

A .-:'. .-f. "X O ill O 
<■ \/ f.> >...' O / u> / 

9.91068 
1.35662 
.241536 



ANDAED DEVIATION OF RESIDUALS 

I N D E X F D E I EL R NINA T I D N ( R - S ) 

ZERO-CHECK ON MEAN EES1DUAI 



.0343456 
.732439 
1.39078E -07 



A C T U A L S C A I... C U I.. A T EL D 
ACTUAL CALCULATED DIFFERENCE PCX DIFFER 



43 



.54 

.62 
♦ 6 



.53 

.4 

.46 



.49 

.45 

.48 

.47 

.46 

. 6 .1. 

.59 

.6 

.57 

.64 

.62 

.54 

. 6 6 

.64 



.397705 
.548383 
.54574 7 
.540664 
.548005 
.549002 
,542922 
.549027 

.494608 

.500928 

.489928 

.493157 

.471775 

,48748 

.555385 

,573512 

.494179 

.495415 

.50499 

,501924 

.498077 

.622468 

.62653 

.631828 

,608934 

.630863 

.611785 

.567747 

.60993 

.607105 



.0322953 




-8,1 




1 , 6 1 6661::.- 


•03 


- - . 2 




4.25297E- 


03 


fr / 




9.33659E 


03 


■■- 1 . 7 




8. 00526 EL- 


■03 




1 , 4 


,0290016 






5.2 


,0770783 




■ 1 4 . 1 




,0509729 




•••■9 . " ! 




5, 3923 IE- 


-03 


1 




,0490723 




-9.7 




,0300723 




■•••6 , 1 




,0368433 




•-7.4 




.0717749 






1. 5 , 2 


, 2 7 4 8 4 






5.6 


, 1 46154 




-2 . 6 




,0164831 




2.8 




4,17852E' 


-03 




.8 


,045415 






9 . .1. 


,0249895 






4 . 9 


,031924 






6 . 3 


.0380768 






/' , 6 


, 0:194683 






•"> 


,0365301 






5.8 


.0318283 






5 


.0389338 






6 . 3 


9.1.3233E 


■03 


1 , 4 




3,2:1 53 IE- 


-03 


- 1 , 3 




.027747 






4 . 8 


.0500699 




8,2 




,0328953 




-5.4 
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teaghme - ;|. - 

H....11 c c:::: n:::::: h::::h ir :: " v' ir: :::»::: n::;;;; ii-ii "ir" ::ii.. '•:;;;" ^ & 
IB* '"ii"' © c :::ii: e;:: im! "if :ii::: f" ::.ii::: c r: e;:: s if;;:: a r: g hi 

so print (;:hr-;ik26) sprints print 

75 CLEAR 10 

.1.0 V7™0 

1.25 PRXHT "NELCOME TO TEACH THE COMPUTER THE:" ANIMALS" 

150 PRINT "WHEN YOU ARE READY TO LEAVE TYPE - STOP" 

175 PRINT "IF" YOU WOULD LIKE A LISTING OF ALL THE " 

20 PRINT' "ANIMALS YOU HAUE TAUGHT ME TYPE -■■ LIST" 

225 PRINT "WHEN ASKED - ARE YOU THINKING OF AN ANIMAL , " 

250 PRINT 

275 PRXHT "THINK OF" AN ANIMAL. AND I WILL TRY TO GUESS IT" 

S0 N«=3 

325 DIM A* (SO > »liii*<S0 > :>G( 50 ) 

330 DIM Z*C50) 

350 A* (0)«SSTFi:$ <-<■}> 

375 FOR 1^1 TO 3 

■10 READ A*(I> 

^25 NEXT I 

•150 DATA "70D0ES IT SWIM/Y2/N3 "»" /APISH" c "/ABIRD" 

175 PRINT 

50 PRXHT 

525 PRINT "ARE YOU THINKING OF" AN ANIMAL..";; 

550 INPUT Z9* 

575 GOTO 3075 

60 K™1 

625 IF W--0 THEM 675 

650 GOTO 70 

675 GOSUB 2050 

70 GOSUI3 290 

725 IF" I...EN ( A*- < K ) > -■ THEN 775 

750 GOTO 30 

775 GOSUB 2050 

8 13* < 2 ) -MID* ( A* ( K ) f 1 y 2 ) 

325 IF &*< 2) »«"/«" GOTO 625 

350 E*~A*<K> 

375 F2^LEN(A*a<) ) - 2 

90 19-3 

925 GOSUB 4575 

950 PRINT "IS IT A " JK$? 

975 BH>(3)^K* 

100 INPUT 7.7% 

1.025 Z7*^MID* < Z7*>1*1 > 

050 IF Z7*^"Y" GOTO 110 

1.075 GOTO 1175 

J. 10 PRINT 

1125 PRINT " xox il'AM VERY PROUD OF" MYSEI..,F\ x* " 

1150 GOTO -175 

1175 PRINT "THE ANIMAL.. YOU WERE THINKING OF" WAS A "J 

.20 .INPUT" Z9* 

1.225 PRINT "PLEASE TYPE!: IN A SIMPLE QUESTION THAT WOULD " 

1250 PRINT "DISTINGUISH A "Z9$" FROM A "B*(3) 

L275 N=N+2 

.30 INPUT Z8* 

L325 F : 'R.INT "THIS WOULD BE A VALID QUESTION FOR A "Z9*? 

1.350 INI :: 'UT 27% 

1.375 Z7*~MID*CZ7*j-1»1) 
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ii,...ii n::::;: c c o ii ;;;: r ir :;ji: g ii-b t" ::ii.. w :;; ;i '" ie* 

"»"' G C 3Z IE." iM! '"IF" X IF" :ii,: C::;: IR E S IE.'.' i A F*: €.;.': 



3.40 IF Z7il^"Y" GOTO 1.500 

1.425 IP 77$^" H" GOTO 1.5 50 

1.450 PRINT "PLEASE AN8MEE 'YES' OR 'NO' 

1.475 GOTO 1325 

1.50 Z6$"""N" 

1.525 GOTO 1.625 

1550 PRINT " NO! C)«K. . ♦♦♦♦ *♦" 

1575 Z6$^"Y" 

1.60 GO' 10 1.625 

1.625 2:I.™VAL<A*<0)> 

1.650 Af (0)^STR$(Z1.-)2) 

1.675 A*(Z:l. )-"A*(K) 

1.70 A$(Z1 ■»■! )™"/A" ■♦• Z9* 

1.725 l-lHi < :!. > ™ " /Q " + ZBili 

1.750 H*(2)™HHi(:l. ) -v "7" 

1.775 HHK1)™H*<2> •♦• 77* 

1.80 H$<3>^STR$<Z1.-->-1. > 

1825 H* C 2 ) ~:|--MI> ( 1 > •♦■ H$(3) 

1.850 H*(l)™HilK2) + "7" 

1.875 1-1* < 2 ) »H* < 1 > •*■ 76* 

1.90 H*<4>^STR*<Z1. ) 

1.925 1-hlH 1. ) ™H* ( 2 ) •♦■ H*<4> 

1.950 A* <K>^H*<1 )■*•"/" 

1.975 GOTO 50 

20 GOTO 2825 

2050 REM 

2075 F$^"7" 

21.00 EiM'AHKK) 

2125 FK4 

21.50 GOBOB 4075 

2175 F2=~lii:9--3 

220 19^3 

2225 GOSUB 4575 

2250 BH>(4)^K* 

2260 IF V7-0 THEN 2825 

2275 PRINT I3H><4>? 

230 INPUT Z9* 

2325 7.9$^mm < Z9* » :i. >• :i. > 

2350 IF Z9*<>"Y" GOTO 240 

2375 GOTO 2425 

240 Z9*««"N" 

2425 F*^"7" ■■>• Z9i|> 

2450 E^AMK) 

2475 F:L<3 

250 GOSUB 4075 

2525 Z1.-E9+2 

2550 Fl^Zl 

2575 F$™"/" 

260 E[*™A*<K) 

2625 GOSUB 4075 

2650 Z2^E9 

2675 F2^ABS<Z2--Z:l. ) 

270 19^71 

2725 GOSUB 4575 

2750 BfCIO^K* 
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EACHMi; 



28 
2825 
2850 
290 
29.1.0 
2925 
3050 
3075 
310 
31.25 
3150 
31.75 
320 
3225 
3350 
3375 
3-10 
3-125 
3450 
3-175 
350 
3525 
3550 
3575 
360 
3625 
3650 
3675 
3725 
3730 
3850 
3375 
390 
3925 
3950 
4075 
4 1.0 

-11.50 
4175 
420 

4275 
480 
4325 
4350 
4375 
440 
4-125 
4450 
4575 
460 
4650 



ii.,..u h:::: c «.::;■ c n ii :::: " ' v ir :ii:: o ii-ii t ::ii.. "?'■ :;?'" o 
ies y s o: :ii: e;.: jni ' ir :n: if" :n:i c fc el s if;;:: n : "-n r: o ii-ii 

Z6--VAL ( B* ( IO > 
REM 

V7--.1 

RETURN 

GOSUB 2050 

K-Z6 

RETURN 

REM THIS SUE: CHECKS FOR A VALID ANSWER 

B-;|^MID?l; < 79* :> :l. ? . I.) 

if e:*"'"y" goto 60 

if b*="= " i... " goto 3350 

if b*-»="n b goto 500 

if b*"""S" then 4950 

print "please answer yes or no ! . , , " 

GOTO 50 

rem this is the list sub 

PRINT 

PRINT 

PRINT "THE ANIMALS THAT I ALREADY KNOW ARES" 

PRINT 

for: itu. to n 
e:#--a* ( 1 ) 

F*~"/A" 

F:LU. 

F2h...enu;;:*> 

:i:9«3 

GOSUB 4075 

IF E9^0 GOTO 390 

FTT4..EN(E*> 
R3-F3--2 

i :: 'Ri:nt j*> 

NEXT I 

PRINT 

(SOTO 475 

REM THIS IS THE INSTR <F1 Hi-*? FHO SUB. 

REM I"* IS THE TO BE MATCHED STRING "SE" 

REM l :: ':l. IS THE STARTING POSITION IN IT-IE E$ STRING 

REM THIS SUE: RETURNS E9 -0 IF" NOT FOUND , ELSE POSITION 

F2N...EN(F*> 

F3N...EN(E*> 

F4^l :: "3-T r 2-Kl. 

FOR I9-RL TO F4 

GOSUB 4575 

IF FM.1. ):»=F* GOTO 4425 

NEXT 19 

E9--0 

GOTO 4450 

E9^I9 

RETURN 

F!E. : .'M THIS SUE: SETS THE CHAR LENGTH 

REM K*~M.Ii:)$ < EH; y 19 y F2 ) 

REM THIS* SUB RETURNS K* AS OUTPUT* 
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ii....iiii::::::ii:::::: coiF"'yir:::!eii::;;;;ipc 





IE* "if SCTEhNlTX 


-'1850 


K*»M:ro*<E*i-I9»F2) 


^875 


RETURN 


'1950 


PRINT 


■ : \975 


PRINT 


50 


PRINT "THANK YOU COME AGAIN 


5025 


PRINT 


5050 


END 



II'" ::IL "S^-Si 
^EiEiiE.AiIRi 
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WELCOME TO TEACH THE LOHPUTER THE! ANT HALS 
WHEN YOU ARE READY TO ! EAUE TARE SI OP 
TF YD I J HOHi , .0 i Ti-;L A ! TS1 '!. NO !«i :; A!. I. THE 
ANIMALS VOL) HAH;-. VAUGH'T Ml- FH-'E •■ ! i 9 I" 
WHEN ASKED AEF YOU : HINK ! Ni-5 OF AN ANI'MAI , 

) IE! NK IT AN AN! MA!. AND J WELT TRY TO GUESS II 



ARE '1 Oil ]!-i'i NE'I'NG CI- AN ANIMAL? r 
DHLS .■" I SO.) M" ; N 

IS i i A I'HEO? jg 

F 1-1 1- AN I MAI YOU WFRE HLINKi.NO OF WAS A ? HORSE 
"TEASE i'YRF IN A SIMEIL QUEST TON THAI WOULD 

i) i: s 1 I., n u 1 s 1 -i a 1 1 r s 1 ;: i • r o m a b t r i i 

? DOES IT bALEOE 

TIKIS WOULD BE A MAI IT QUESTION FOR A HORSE? Y 

ARE YOU IHINKINO OF AN ANIMAL? Y 
DOES I. "1 SWIM? N 
DOES T? 1}. ALL OR? N 
IS IT A BIRD? N 

I HE ANIMAL rOU WERE IHINKINO OF WAS A ? DOO 
PLEASE TYRE IN A SIMPLE QUESTION THAT WOULD 
DISTINGUISH A DOO FROM A BIRD 
? DOES II BARK 
THIS WOULD DE A UAL I'D QUESTION FOR A DOG? Y 

ARE- YOU IHINKINO OF AN ANIMAI ? I. 1ST 



THE AN [MAI, S I HAT I." ALREADY KNuW ARE? 

FISH HORSE BIRD DOG 



ARE YOU I'H INKING OF AN ANIMAL? Y 
DOES IT SWIM? N 

DOES IT GAL I OP? N 

DOES ."IT BARK? Y 
]S IT A DOG? Y 

« I 'AM UEEY PROUD OF MYSELF, ## 
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ARE YOU THIN KIN 6 Of-" AN ANIMAL? Y 

DOES I! SWIM? N 

•DOES fT GALLOP? H 

DOES O BARK? N 

tS 17 A BIRD? N 

THE ANIMAL YOU WERE THINKING OF WAS A ? CAT 

PLEASE TYPE IN A SIMPLE QUESTION THAT WOUI D 

DISTINGUISH A OA1 FROM A BIRD 

? DOES IT PURR 

THIS WOULD BE A VALID QUESTION FOR A CAT? Y 

A R E YOU I H 1 N l\ .1.' N G 1 :; AN A N I M A I... ? L I S T 



THE ANIMALS THAT I ALREADY KNOW ARE J 
' : 'ISH HORSE DOG 



BIRD 



I AT 



ARE YOU I'll INK I NO OF AN ANIMAL? STOP 

THANK YOU COME AGAIN ♦ 
OK 
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RELIABLE COMPUTER SOFTWARE 




FOR YOUR DOWN TO EARTH TASKS 



SCIENTIFIC RESEARCH INST. 



Key Biscay ne, Florida 



BASIC SOFTWARE LIBRARY 



